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7003 
, 0 P 0 
■ •■200 

4407 

6101 

'’021 

.•991 

5433 

F 222 

.•000 

0223 

2603 

,■’'’04 

U 004 

2205 

■-«13 

0226 

"100 

22 2 7 

■300 

■' 00 ? 

7009 

6430 

2210 

■ U 3 C 9 

22 il 

'>000 

2212 

2300 

2213 

3600 

2214 

3117 

2215 , 

■’390 

2216 

7402 

2017 

:017 

3214 

2220 

'■ 03 ? 

2221 

‘300 

2922 

2437 

2223 


2024 

■ 2*^0 

9225 

•-?00 

2226 


0 C 27 


2230 


2/31 

3216 

20 32 

t ^30 

2033 

* 0 

2234 

0 0 r 

2235 

4617 

2236 


2037 



/r0CLl2.37 

/CCPyRicmT 1970* digital EOuIPmE'vT CcPP.. MAYNiAPDi MASS, 01754 
TMOOE /o**«**»* 

FIXmpI FPOwa5000/PSEUDC-PLOATIKC POI;\T INSTRUCT I ONS , 

riXYf?I rADo = 100e 

fIXmpI rsU3*2000 

riXMsI rMUL»4000 

pIXyrI roiv»3000 

PIXmpI FGEt»0000 

riXMRl FPUT*6000 

FNOR«70O0 

FEXTaD 

FXiTaO 

FINTajHS I 7 
SMP86l01 

/miscellaneous items 
*1 


LwETmP 

JMP I 
; 9 

1*2 /IN-TERRUPT PROCESSOR ENTRY , 

dotjr# 

. DOTJR 

INTRPT 

/USED For debugging 

P 13 , 

13 

/constant 

C 100 , 

100 

/COMSTAwT 

TP 00 

P §00 

CDFb 7003 

/TEXT FiELO NO. 

/program field no. 

/(X*mEM) " OPR 

/AUTO* 

FPnT /address of FLOATING PoINT INTERPRETER 

INDEX REGISTERS - (STaRT OF SAVE By QUAD) 

axin, 

0 

/storage index (LOC • 10 ) 

XRTi 

0 

/EXTRA XR 

XRT 2 . 

0 

/EXTRA 


POLXRi 

fltxr* 

FLTxr2, 

TELSW* 

TEXT^pV 

AXOUT* 

XCT, 

GTEy, 

PC* 

THISLN. 

TMisaP, 

LASTLN. 

oebgsm; 

PACKST, 

PTl, 

LASTV* 

Tl. 

T3, 


8 ECIN *1 /PUSMOOWW LIST INDEX REGISTER. 
lOPUFal /XR FOR floating POInT 
0 /EXTRA for F.P. 

HLT /TELETYPE IM PROGRESS SWITCH 
/text pointers (LOC alT) 

FRSTX /output INDEX 

9 /UNPACK SWITCH 

0 /unpack storage 

fltzer /program counter 

9 /LINE Pointer from tIndln* 

C /current 'Eval* operation 

0 /BACK Pointer from 'fInoln» 

1 /debug SWJTCU 1 non^zero for literal. 

0 /rusout protection 

0 /variable Pointer 

PUF 3 EC /address OF LAST VARIABLE 
0 /temporary register - MAIN 

0 /TEMP Register for output 


iNBiJF, 0 /keyboard Input buffer 

bottom, EEXP.I /#***«***/LaRT location currently available 

INS'jBi 9 /08 GETcI 40 ■ READC 

hINBUF, ? /HIGH Speed input BUFEER 

/PACE ZERO OF THE 

/floating point arithmetic iuterpreteR for focal 


IN FIELD Zero *• 


/rOCLl2.S7( 


olAii? vee's 


ll-JAV-Tl 


23ie4 pace 1 


• 40 




EXl, 

4 

/OPERA'. 

• storage 

AClH, 




AClL. 




OVERl, 




FLAC«, 

/flOAllK 

3 ACCU^ 

LLATOR 

EXP, 

C 

/F,a, 


hORQ, 

e 



LORO. 

■ C' 



0VER2, 

t' 



SIGmFi 

0 


/floatin sign 

minski; 

aCmInS 


/negate flac Subroutine 

FISw, 

2004 


/output EORMaT 

integer 

.Fix 


/Fix flac 


GETSI5N»TAD FLAG*! 

'RETurN«jmP I EFtJ>j3l 
*5 A 

/variables » IN1TIALI2E0 FOR THE DIALOGUE 
SORTCN; 3 /NUMBER IN TABLE FROM SORTC 

LASTOPi C /LAST OPERATION rOR EVAL 

EFOPPi /FUNCTION' CoDEi 

ATsw, I? /ASK-Tvpr Switch 

CNTR, »20 /delete and error COUNTERIUSEO by F.P, ALSO) 

STARTVp, /«EN0 FijR 8k 

BUFR, BUF3EC /NEXT LOCATION IN BUFFER t LAST LOCATION OF TEXT'.’ 

OADO» 0 /••*»**** 

XCTin» i53 /pack Switch 

OuTOCV; XQuTL /POINTER TO OyT, Su0. (OuTD-FOR DEBUGGING 

INDEVi XI33 /POINTER TO IN, SUB, <l33)"rOR DEBUGGING 

NAGSWi 0001 /NOT ALL ANq/OR GROUP SWlTcH(4000fONEIl«ALL)0PGROUP> j {0000)»FOR TSSi? 

char, 215 /The HOST IMPORTANT REGISTER 

LINENO; 0000 /LINE Number read By GETLNj (0400>«FOR TSS»8 

GINC, W0R0S*2 /•(» FOR A.»WoPO « CONSTANT 

T2i 0 /TEMP Register - for new inst, routines, 

/for Debugging, set ouTl and i33 into outdev and indev» 

/ALSO PATCH THE ERROR RoUTInE ■ FOUR 

/patches plus TWO FOR the High speed reader, 

LIST6»V /Input liSt roR "SFoiind", 

214 /F,F, 

207 /BELL 

LIST7«V 

203 /CONTROl"C for DEBUGGING AND TSS0 

P337, 337 /left arR 

CLF, 212 /L.F, 

list3«V /Excretion list 

CCR, 215 /list Branches. 

DMPSW, HLT /(SEARCh. ChaRACTER)«v4RUBlE 

/B0010 POR TRACE ON, 

/the Rest of page 2ero is pure to the multibuses system 

N10P«I 

P770l!, 77^0 /left naSK 

PER, 258 /PERIOD 

m77, w 77 /extend CODE TEST 

P76?'i, 7600 /group >^ASK 

M20, -20 /CONST AvT 




/rocLis,:? 



oiALis; vi-'Ps 
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ill 


177 

P177, 177 

/STEP Mask 

112 

;‘1 -'7 

nr 

P17. 17 

/BCD mack 

11-3 


111 

P277. 277 

/ " ? " 

11 A 

"Ill 

7776 

H?i -2 

/CO'.STA’jT 

ll5 

7112 

7477 

MINUS*. ^3iU 

/CO'jSTA'.T 

Il 6 

7113 

■267 

C260, 260 

/ASCII rOR ZERO 

Il7 

7114 

754? 

m247, ..240 

/SPACE test 

ll 6 

7115 

7522 

MPEP. e256 

/PERIOD TEST 

ll9 

7116 

7563 

KCR, <>215 

/C.R, test 

120 

7117 

1115 

MFLT. -WORDS 

/8 ,4 FoP 4, WORD 

121 

(1120 

7773 

m5| *5 

/paren test 

122 

0121 

7767 

Mil, -11 

/PAREN tES’’ 

123 

0122 

>077 

P77, 77 

/RIGHT -lASK 

124 

0123 

■■200 

C2U0, 200 

/CONSTAvTS 

125 

0124 

4^100 

P4'000» 4000 

/NAGSW test constant (for PDPb5> 

126 

0125 

2032 

FLARgP; fuarg 

/DATA AOORESS 

127 

0126 

2157 

ptch, chin 

/general character input ROUTINE, 

126 

0127 

5715 

double; mulT 2 

/multiply Flac by 2 

129 

0130 

6030 

FOUTPUt.FLOUTP 

/FLOATI^G Output 

130 

0131 

6203 

FINpijTj FLINTR 

/FlOATI\G Input 

131 

0132 

3140 

combuf, COmEIN 

/command buffer start 

132 

0133 

3206 

CFRS, FRST 

/ADDRESS OF dummy LINE, 

133 

0134 

3140 

END, COmEIN 

/FIRST location USED iN SK, 

134 

0135 

3216 

endt. supbeg 

/START OF Storage area •• 

135 

0136 

2021 

EFUnSI; EFUN3 

/function Return 

136 

137 

0137 

2407 

CFRSX» FLTEER 

/POINTER TO ZERO DATA 

iJ» W ^ 

136 





139 



/'finPut* uses 

CHAR and GETc or READC TO DEVELOP 

140 



/A number which 

IS THEN stored via PTl, 

141 


1.1003 

W0R0S«3 /or 4 


142 



/NEW iNStRlJCTlONSI 

143 


4540 

PUSwjijMS i , 

/RECURSIVE subroutine CALL 

144 

0140 

,'521 

XPilSHJ 


145 


1413 

POPA«TaO I pOLXR/RESTORE AC 

146 


5541 

POPJbJmP I , 

/Subroutine return 

147 

0141 

1565 

XPOPJ 


140 


4542 

pusha'jns i . 

/SAVE Ac 

149 

0142 

'477 

XPUSHA 


150 


4543 

PUSHFijMS 1 , 

/SAVE group of Data 

151 

0143 

534 

PD2 


152 


4544 

POPp»jMS 1 , 

/RESTORE CPOUP 

153 

0144 

554 

PD3 


154 


4545 

GETCbJMS I , 

/unpack a character 

155 

0145 

2274 

utra 


156 


4546 

packc'jms i , 

/PACK A character 

157 

0146 

P5 12 

pacsuf 


150 


4547 

SORTJPJMS i , 

/SORT A\D Branch on ac or char 

159 

0*4 7 

i312 

SORT0 


160 


455'* 

SORTC'JiS i , 

/SORT Char 

161 

i 5 ;* 

721 

XSORTC 


162 


4551 

PRINTCsj.mS I , 

/.PRINT ac Or Char 

163 

M51 

2465 

OUT 


164 


4552 

READC'JMS ! , 

/READ Data INTO CHAR AND PRINT IT 

165 

^152 

2157 

PDlV, CHIN 



/FOCl12.37^P 

OIAL10 

V’'33 

llijAN»71 

23106 PAGE 

166 


4 553 

PRNiTL^i 

«JMS I , 

/PRINT 

CCLINENO) 

• 167 


d425 


xPRKT 



169 


4554 

GETL'M* 

J‘'S i . 

/unpack 

AND FORM A LINENuMBER 

169 

>154 

372 


kgftln 



170 


4555 

FINOlN 

*JMS 1 , 

/SEARCH 

FOR A given lJne 

171 • 

1 5 5 

2244 


XFIWO 



172 


4556 


JMS ! , 

/INSERT 

line pointers 

173 

^156 

2367 


XEnDLN 



174 


4557 

RTL6«JmS 1 , 

/ROTATE 

left six 

175 

7157 

413 


XRTL6 



176 


4 560 

SP'^OP* 

J7S ! , 

/IGNORE 

SPACES AND leading ZEROS 

. 177 

0160 

1535 


XSPNOR 



179 


4561 

TESTN» 

jMS i , 

/PERIODi OThERI number 

179 

7161 

1546 


XTESTN 



150 


4562 

TSTLP'^ajMS I I 

/SKIP IF 5<S0RTCN<? ll <I.E. AN L*PAR) 

191 

7162 

2037 


lprtst 



182 


4563 

TSTGPPfJMS I t 

/SKIP IF G(aC> ■ CILlNENO) 

. 153 

7163 

■744 


CRPTST 



13< 


4564 

TESTCPJ4S i , 

/TERMI 

nUMBERI ruNCTlONI LETTER** AND IGNORE SPACES 

185 

7164 

. 777 


XTCSTC 



186 


4565 

DEUETEhJMS I 1 

/REMOVE 

OLD TEXT LINE 

107 

7165 

2064 

PSlN. 

• XDELETE 



189 


4566 

EPR0P2 

■JMS I , 

/EXCESS 

something error 

199 


4566 

ERROR3«JmS I 1 

/miscellaneous error 

190 


4566 

ERR0R4sijmS 1 , 

/format 

ERROR 

I9l 

7166 

2726 


ERR2 



192 



/USED 

BY 8k 



193 



/FOCaL'S commano/input 

driver 

194 


7167 

*167 




195 

7167 

i:070 

SUBS2I 

0 



196 

7170 

7000 

LESuR2 

i 0 



197 

7171 

^■007 

SUBS. 

0 


/##«*#««« 

198 

7172 

6163 

LEFpuT 

, LEPUT 



199 

7173 

H000 

LESijpS 

; 0 



200 

7174 

7657 

PWAiTt 

WAiT 



201 

7175 

7672 

pclear 

; CLEAR 



202 

7176 

3601 


BEGIN 

/BECOMES {RECOVR*!) •* 

203 

7177 

7617 

STAPTi 

SKP CLA 


/program start from self 

204 

7270 

5576 


jMP I 

• 2 

/CONSOLE STARTi SW«203, 

205 

7?01 

1137 


tAO CFRSX 

/(PC) *> 0 

2^6 

7?72 

3022 


OCA PC 


/for command mode 

207 

7773 

7071 


lAC 


/USE ONE IN THE AC TO 

2P9 

7274 

3107 


OCA OMPSW 

/IMIT UNPACK AnO Trace SWITCHi 

209 

7275 

3026 


DCa DEBGSW - 

/enable trace for input of t?), 

210 

7?76 

1226 


TAD COMBOT 

/PROTECT COMMAND BUFFER, 

21 1 

0277 

3313 


DCa POLXR 

/NO PATCH test, 

2l2 

7210 

1225 


TAD CSTaR 

/announce presence 

213 

7211 

4551 


PRINTC 


/BY TYPING ThE LEAO-’IN CHARACTER 

2l4 

7212 

1132 

IBAR, 

Tad COM0UF 

/initialize command buffer 

2l5 

o'2l3 

3717 


DCa AXlN 

/FOR unpacking, 

216 

7214 

3:^62 


DCA XCTlN 


2l7 

7215 

1132 


tAO COMBUF 

/rubout protection 

2l9 

7216 

3727 


DCA PACKST 


2l9 

.7217 

4552 

IGNOBi 

9EA0C 


/REAP COMMAND STRING 

220 

7227 

4547 


SORTJ 








m m 

/F0Cl12. 

t? 

01 AL10 

V0..53 11*JAN»71 
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221 


073 

LIST7» 

1 

222 

; 2 

•474 

INLIST 

-lIST7 

2?3 

.’h3 

4546 

CACKC 

/SAVE STRING CwapACTER, 

22^ 


5217 

JMP IG^0R 


225 

’;?5 ■ 

252 

CSTAt?» 252 

/ac<''Owleoce Character 

226 

7 ? 6 

7220 

COMScT, C0‘1E0UT*12 

/END OF command BUPFER.LESS PROTECtlON CoU‘iT'. 

227 



/COMyANa/l'jPUT PROCESS 

Or 

226 


4546 

IRET^J» PACKC 

/STa^T TO PACK C.R. 

22? 

.’770 

4546 

PACKC 

/finish C.R. 

270 

2 7 1 

1132 

TAD COMSuF 

/INITIALIEE "TEXTP" 

271 


7717 

GONE. OCA aXOUT 

/SETUP current LINE . 

272 

.’7 33 

3020 

dca XCT 


233 

.'■) 74 

4545 

GETC 

/READ FIRST character. 

274 

’7 75 

1735 

TAD BOTTOM 

/INIT PuSHsDOWN.lIST 

235 

7776 

3013 

DCA POWXR 


236 

0777 

4560 

SPNOR 

/ignore leading blanks 

23 7 

.’?4 2 

4561 

TESTN 

/DOES the line begin WITH 1*9? 

238 

0541 

5362 

jMP GEERR 

/PERIOD bILLEGAL GROUP EERO USAGE 

239 

0742 

5271 

JMP INPUTX 

/NO 

240 

??47 

2026 

ISE DEBGSW 

/YES, disable trace FOR REPACKING 

241 

n?44 

4554 

GETLN 

/reai^ this line number 

242 

!’?45 

1124 

TAD P4000 

/TEST poR Single line, 

243 

0246 

1065 

TAti NACSW 


244 

??47 

7640 

SEa CLA 


245 

??50 

4566 

ERRORS 

/illegal line number on input 

246 

?251 

1060 

tad bufr 

/set pointers 

247 

0252 

3010 

OCA AXIN 


248 

0253 

3062 

OCa xctin 


249 

0254 

3 067 

TAD LlNENO 

/SAVE LINE # 

250 

0255 

3410 

DCA I AXIN 

/(X.MEM) 

251 

0256 

4560 

spnor 

/ignore spaces ApTER line number 

252 

0257 

7410 

SKP 


253 

0260 

4545 

GETC 

/read 1ST after LINENO TERMINATOR, 

254 

0261 

4546 

SRETN* PACKC 

/SAVE text ANO restore DATA FIELD 

255 

0262 

1766 

TAD CHAR 

/TEST FOR END OF INPUT STRING 

256 

0263 

1116 

TAD MCR 


257 

0264 

7640 

. SEA CLA 


258 

0265 

5260 

JMP 1*5 


259 

0266 

4565 

delete 

/remove olo line, if any, 

260 

0267 

4556 

ENDLN 

/INSERT NEW LINE 

261 

0 270 

5177 

JMP START 

/pointers must be REINITIALIZED 

262 

0271 

4540 

iNPUTX; PUSHJ 

/PROCESS IMMEDIATE COMMAND, 

263 

"272 

.'611 

PROC 

■ 

264 

0273 

1.422 

tAD I PC 

/check next line (X-MEM) 

265 

0274 

7450 

SNA 

/ENO OF PROGRAM? 

266 

0275 

5177 

JMP START 

/YES 

267 

0776 

3022 

OCA PC 

/save new line NO, 

268 

0277 

1022 

tad PC 

/start new line 

269 

0700 

7'^01 

lAC 


270 

0701 

5232 

JMP GONE 

/PROCESS other commands 

271 



/text line buffer format* 

272 



/«l 1 POINTER OR EERO 

In LAST 

273 



/*2 1 LINEnO 


274 



/«3 « PN*1 1 TEXT 


275 



/BN 1 C.R. 



/rociiz.t^A 

CUL10 
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276 



/UlMC 

number formation 



277 

■’7.2 


XOETlN 

1 tJ 

/DEVELOP r.'D, «• ''GETL'N” 


278 

•■’7 23 

^56.? 


SPvOR 

/igndRE leading spaces. 


279 

.’324 

!.?66 


tAD CHAP 

./"All" is a special argument, 

2'?0 

7 5 

1112 


TAD MINUSA 



281 

.'726 

7650 


SNA CLA 



282 

.’727 

5322 


JMP TESTA 



283 

’710 

3036 


OCA INSUB 

/call 'CETC* from MNPUT* 

VIA 'OECON 

20 4 

.’711 

4771 


JMS I UCON 

/(DECONV - IN float,) 


235 

.’7l2 

1047 


TAD FLAC*3 

/GROUP TOO large? 


286 

0313 

.:372 


AND P7740 



257 

.■'314 

1046 


TAD FLAC*2 



288 

0715 

7643 


SZa CLA 



289 

0716 

4566 


ERR0R2 

/GROUP NUMBER TOO LARGE 


290 

.’317 

i’04 7 


tAD FLAC*3 



291 

0323 

4557 


RTl6 



292 

.’321 

7304 


RAl 



293 

0322 

3067 

testa* 

DCA LlNENO 



294 

0323 

4561 


TESTN 

/TEST3 


295 

03?4 

4545 


CEtC 

/READ STEP number, 


296 

0325 

4561 


TESTN 

/TEST4, OTHER 


297 

0326 

5340 


JMP gerr 

/DOUBLE PERIODS 


298 

0327 

5352 


JMP GEXIT 

/other 


299 

0330 

1054 


tAO SORTCN 

/number 


3?0 

0331 

7106 


rtl cll 



331 

0332 

1054 


TAD SORTCN 



3p2 

0333 

7004 


RAL 



333 

0334 

1067 


TAO LlNENO 



334 

0335 

3067 


OCA LlNENO 



335 

0336 

4545 


CEtC 

/reao second step number. 


336 

0337 

4561 


TESTN 

/TEST4, OTHER 


337 

0340 

4566 

CERR, 

ER90R4 

/DOUBLE PERIODS 


33 B 

0341 

5352 


JMP GEXjt 

/other 


3C9 

0342 

Is? 5 4 


TAD SORTCN 

/number 


310 

0343 

1067 


TAO LlNENO 



3ll 

0344 

3067 


OCA LlNENO 



3l2 

0345 

4545 


GEtC 

/TEST FOR correct TERMINATOR 

3l3 

0346 

4561 


TESTN 

/check SIZE 


3l4 

01347 

5340 


JMP GERR 

/. 


3l5 

0350 

7410 


SKP 



3l6 

0351 

4566 


ERR0R2 

/TOO large a line number. 


3l7 

0352 

7100 

cexit* 

CLL 

/CLEAR link sit 


3l8 

0353 

1067 


TAO LlNENO 

/TEST FOR GROUP NUMBER, 


319 

0354 

104 


AND P7600 



320 

0355 

7640 


sza cla 



321 

0356 

7020 


CMl 



322 

0357 

1067 


TAO LlNENO 



3?3 

’360 

106 


AND P177 

/repaRe «nagsw« 


324 

,'361 

7460 


SNL sza 



325 

'’^62 

4566 

GHER9* 

ERP0R2 

/0,X ■ ERRORllLLEGAL LINE 

NJ'-BER. 

326 

0363 

7640 


SZA CLA 



327 

0364 

1373 


TAD P20Z0 



326 

0365 

7120 


CMl 



329 

'.'366 

700 4 


RAl 



330 

0''67 

3065 


dca nagsw 




/F0CL12, 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 
34 4 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 
3P0 
331 
382 
3e3 

384 

385 


:^7 - 

Cl ALin 

V. 03 

llljAN» 

71 

23(06 PACE l»6 


5732 


JMP I XCETLN 


”371 

56''0 

LCC'4, 

• DECONV 



^372 

7743 

F774 '* 

77^0 



.'373 

2?PC 


2000 





/ ^ 4 \i G £ 

0 F ACCEPTIQLE LI'.E numbers « 1|?1 To 31,99 



/•^AGSW j 





/3R0UP»?000 





/line:* 

4300 





/ALL«0001 





/LIST 

OF function addresses. (Names ARE in "FNTABL") 


.374 

FNTASr 

«• 



C^374 

2316 


XABS 

/A9S 

"•ABSOLUTE value 

«»375 

2012 


XSGN 

/SGM 

PART 

'1376 

1156 


XINT 

/ITR 

"INTEGER PART 

P377 

7602 


xoisp 

/DIS 

/*•«»«««• 

0 4 0 

1145 


-xran 

/RAN 

"RANDOM number 

fi4l11 

1341 


XADC 

•/ADC 

-read analog to digital CONVERTER 

0402 

5003 


ARTN 

/ATN 


0403 

4620 


FEXP 

/EXP 

"EXPONENTIAL FUNCTIONS 

P^404 

5?40 


FLOG 

/LOG 


0405 

5204 


FSiN 

/SIN 

"TRIG functions 

0406 

5177 


FCOS 

/COS 

11 

0407 

7490 


XSOPT 

/SOT 

•SQUARE ROOT 

04i0 

2725 

PFMCWi 

errors 

/NEW 

•user defined functions 

0411 

2725 

PFX. 

errors 

/FX 


0412 

2725 

PFi, 

ERRORS 

/F2 


0413 

02100 

XPTL6» 

0 

/ROTATE 

AC left six - "RTL6'» 

0414 

7106 


CLL RTL 



0415 

7006 


RTl 



0416 

7006 


RTl 



0417 

5613 


JMP. I XRTL6 




/RECURSIVE OPERATEi EXECUTE, OR CALL 

0420 

4554 

DOi 

GETLN 


/execute one LlNEi A GROUPiOR ALL 

0421 

1022 


TAO PC 


/SAvr address 

0422 

4542 


PUSHA 


/OF current line 

0423 

4543 


PUSHF 


/SAVE REST OF THIS LINE 

0424 

0017 



TEXTP 

/address of TEXT POINTERS 

.0425 

4543 

OGRP, 

PUSHF 


/SAVE nagswi charj and linino, 

0426 

'•■365 



NACSW 


04 27 

1065 


tad nagsw 

/check Data from getln, 

0430 

7710 


SPA CLA 


/SKIP ir GROUP or all 

0431 

5263 


JMP OOONE 

zoo ONE line 

04 32 

4555 


FINOLN 


/INjt for croup and set THISLN 

0433 

7300 


NOP 



0434 

1023 


TAD THISlN 

/•TEST FOR GOOD GROUP NUMBER. 

0435 

3011 


DCA XRT 



0436 

Hii 


TAO I XRT 

/(X,MEM) 

0437 

4563 


TSTGRP 



0440 

4566 


ERO0R2 


/NO SUCH GROUP NUMBER 

0441 

4 54,1 

DCRPlj 

PUSMJ 


/execute OBJECT LINE ANO SET PC. 

0442 

1 6i''6 



PROCESS-2 

0443 

4544 


POPF 


/RESTORE THE DATa 

0444 

^ ”65 



MAGSW 


0445 

1422 


TAD I PC 


/check FOR End OF TEXT {X*MEM) 

0446 

7450 


SNA 




/F0CL12. 


OlAUlf’ 


li;jAN«7l 
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306 

;>d47 

5271 


JMP OCOMT 

/ALL done 

3'l7 

.'»40? 

7001 


MC 


386 

04 81 

3'?33 


OCa PTl 

/SAVE POINTER TO LINENO 

389 

^452 

3 065 


TAO NAGS'-i 

/CWPCK FnR GROUP 

390 

’453 

774-' 


SMa S2A CLA 


391 

0454 

5260 


JMP ,*4 

/DO ALL 

392 

0 4 55 

l430 


Tad I PTl 

/TEST GROUP (X.MEM) 

393 

0456 

4563 


TStCRP 


394 

04 57 

5271 


JMP OCOnT 

/NOT IN group 

3o5 

0460 

l430 


TAO I PTl 

/read next line no, <X«MEH) ■ 

396 

0461 

3067 


OCA lineno 


797 

0462 

5225 


JMP OGRP 

/continue the subroutine 

398 

0463 

4555 

OOOMCi 

FInOLN 

/find The line 

399 

0464 

4566 


ERR0R2 

/NO SUCH line number 

400 

0465 

4540 


PUSHJ 

/execute it 

401 

0466 

'.•610 


PROCESS 


4?2 

0467 

4544 


POPF 

/RESTORE CHAR 

403 

0470 

C065 


NAGSW 


<104 

04n 

4544 

DCONT> 

POPF 

/RESTORE TEXT POINTERS 

405 

0472 

0317 


TEXTP 


406 

0473 

1413 


PO»A 

/RESTORE address OF CURRENT LINE, 

407 

0474 

31322 


DCA PC 


408 

0475 

5676 


JMP I ,41 

/continue processing THIS LINE,. 

409 

0476 

0611 


PROC 


410 



/PUSHOOWN list controls 


4ll 

0477 

^1000 

XPUShA, 

0 

/pushdown THE AC « "PUSHA'* 

4l2 

0500 

3071 


DCA T2 

/BACKUP pointer 

4l3 

0501 

7040 


CMA 

/and Then 

414 

0502 

4310 


JMS PCHK 

/check core usage 

4l5 

0503 

1071 


Tad T2 

/OK 

4l6 

0504 

3413 


OCA I polxr 

/PUSH DOWN LIST POINTER 

4i7 

0505 

7040 


CMA 

/BACKUP AGAIN 

4l8 

0506 

4310 


JMS PCHK 


419 

0507 

5677 


JMP 1 XPUSHA 


400 

0510 

0 000 

PCHK. 

0 


421 

0511 

1013 


TAD PDLXR 

/INC IN AC 

422 

0512 

3013 


DCA PDLXR 


423 

0513 

1013 


TAO POLXR 


424 

0514 

7141 


CIA CLL 


425 

0515 

1031 


TAD LASTV 


426 

0516 

7630 


SlL CLA 


427 

0517 

4566 


ERRORS 

/storage filled by push-down LIST 

420 

0320 

5710 


JMP I PCHK 


409 

0521 

'1000 

XPUShJ; 

0 

/RECURSIVE subroutine CALL - "PUSHj” 

430 

0522 

1721 


tAO 1 XPUSHJ 


431 

0523 

3071 


OCA T2 

/SAVE SUBR. aODR. 

432 

0524 

7040 


CMA 


433 

0525 

4310 


JMS PCHK 


434 

0526 

.1321 


TAD XPUSHJ 


435 

0527 

7001 


lAC 


436 

0530 

3413 


DCA I PDLXR 

/SAVE RETURN 

437 

0531 

7040 


CMA 


438 

0532 

43l(.1 


JMS PCHK 


439 

0533 

5471 


JMP I T2 

/transfer control 

440 

0534 

■ ■000 

P02, 

0 

/SAVE A floating point NUMBER - "PUSHF” 


u 




/rocuis. 

• 

nlAL10 

V'Ui3 

ll-JAN-71 

# # 
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441 

'■535 

7240 


ClA CMA 

/COMf»UTE variable ADDR 

442 

^’535 

1734 


TA-i 1 ,^2 


443 

n C J 7 

3-311 


OCA XRT 


444 

•'5 4,1 

2334 


IS? P02 

/Fix RETURN 

445 

'”'41 

1117 


TAO HfLT 

/compute PUSH, Pointer 

446 

’’542 

4310 


JMS PCHK 


447 

3543 

1117 


TAD MFLT 


448 

.''94 4 

3171 


DCa T2 


4 49 

3545 

1411 


tad I XRT 


450 

'4546 

3413 


DCA 1 PQlXR 


451 

.'>547 

?37l 


IS? T2 


452 

7550 

5345 


JMP ,s3 


453 

7551 

111? 


TAD MFLT 

/RESET pointer 

4f4 

0552 

4310 


JMS PCHK 


455 

0553 

5734 


JMP I P02 


456 






457 






458 

0554 

.'000 

PD3, 

e 

/ Restore a floating point number » "popf« 

459 

0555 

7240 


CLA CMA 

/GET VAR, ADDR, 

460 

0556 

1754 


TAD I PD3 


461 

0557 

2354 


IS? P03 


462 

0560 

3011 


DCA XRT 


463 

0561 

1117 


TAD MFLT 


464 . 

0562 

3071 


DCA T2 


465 

0563 

1413 


tad I PDLXR 

/MOVE 

466 

0564 

3411 


DCA I XRT 


467 

0565 , 

2071 


IS? T2 


468 

0566 

5363 


JMP (bS 


469 

0567 

5754 


JMP 1 PD3 

/exit 

470 


0570 

INL!ST« 

. /INPUT control characters 

471 

0570 

2740 


RECOVR /C.C, 

s break 

472 

05n 

3212 


ibar /B.A, 

1 restart 

473 

0572 

;-2l7 


IGNOR /LiF, 

p IGNORE 

474 

0573 

V 227 


IRETN /C,R, 

p terminate string 

475 

0574 

1075 

7LIST2. 

FLIMIT /.pSTANoARD 

476 

0575 

1137 


FINFIN /)»SH0RT 

477 

0576 

2725 


ERRORS /CR«DUM0 

478 

0577 

1065 

FLisn; 

FINCR /iPSTANrjARO FORMAT 

479 

0800 

■•'610 


PROCESS /I-SETIPLUS ,,, 

490 

0601 

-614 


PCI /C.R. 

■Set Command, 

4n 

0602 

7472 

MP I 

*306 /USED 

By testc 

482 



/primary control and 

transfer 

483 

0603 

4554 

50T0. 

GETLN 

/read the line number requested 

494 

0604 

4555 


finoln 

/LOCATE IT AnO reset TEXTP 

495 

0605 

4566 


ERR0R2 

/NOT there 

486 

0606 

1023 


tAn THISLN 

/set PC 

487 

0607 

3322 


DCA PC 


488 

0610 

4545 

PROCESS, 

.CETC 

/TEST for end of line 

489 

0611 

1066 

PROC. 

tAD CHAR 

/first character ready 8 USE PROC 

490 

0612 

1116 


TAD MCR 


491 

0613 

7653 


SNA CLA 


492 

0614 

5541 

PCI, 

POPJ 

/EXIT "PROCESS" 

493 

0615 

4553 


SORTC 

/ignore "SPACE",",", AND "1", 

494 

0616 

l374 


GLIST 

»1 

495 

0617 

5210 


JMP PROCESS 



/rOCLl2..^7 

■:'lAi.i0 

V'O03 

li;jAN»71 

23106 pace 

496 

/■*622 

1266 


tad char 

/SAVE COMMAND CHARACTER 

497 


■375 


ANP P337 

/execute LOWFP CASE ALSO 

498 

'M22 

4542 


PUSHA 


499 

0673 

4545 


r,ETC 

/GO TO TERMINATOR 

5/10 

7624 

4550 


SOPTC 


5?1 

. .'•625 

i 374 


CLlST* 

1 ■ . 

5.-:!2 

7626 

74li1 


SKP 


5?3 

7627 

5223 


JMP ,e4 


5? 4 

763? 

1*1Z 


POPA 


5L'5 

7631 

4547 


SORTJ 

/GO DO command 

5t'6 

0632 

773 


COMLST 

•1 

507 

0633 

, 165 


COMGO" 

COMLSt 

508 

7634 

4566 


ERR0P2 

/illegal command 

5^9 


614 

COMMENtS»PCl /ALSO 

Is CONTINUE 

510 






511 






5l2 



/OUTPUT 

COMMAND TEXT 


5l3 

0635 

4554 

kPlTEi 

CETLN 

/SET LINENO 

■ 514 

0636 

2026 


!S? OEBGSW 

/DISABLE TRACE 

515 

0637 

4555 


rU'OLN 

/search for line number 

5l6 

0640 

5267 


JMP WTESTG 

/NOT TwERE or group 

5l7 

0641 

1?67 


TAD LINENO 


5l8 

0642 

7640 


S2a CLA 


5l9 

0643 

4553 


PPnTLN 

/PRINT LINE NUMBER AND A SPA'CE, 

520 

0644 

4545 


getc 


521 

0645 

4551 


PRjNTC 

/PRINT TEXT oP A LINE, 

522 

0646 

1366 


tAD CHAR 


523 

0647 

1116 


TAD MCR 


524 

0650 

7640 


S2A CLA 

/SKIP IF ENO or LINE 

525 

0651 

5244 


JMP ,m5 


526 

0652 

1423 


tAO I ThISLN 

/TEST for end or TEXT (X-MEM) 

527 

0653 

7450 

WTESt2; 

SNA 


528 

0654 

5271 


JMP WX-2 

/EXITIOO NEXT indirect LINE. 

529 

0655 

7001 


lAC 


530 

0656 

3330 


DCa PTl 

/SAVE POINTER TO LINENO OP NEXT 

531 

0657 

1?65 


TAD NACSW 


532 

066? 

7700 


SMA CLA 


533 

0661 

1430 


tAO I PTl 

/{X«‘iEM> 

534 

0662 

4563 


TSTGRP 

/TRy NEXT LInENO FOR GROUP i 

535 

0663 

5273 


JMP WX 


536 

0664 

1430 

wall. 

tAO 1 Ptl 

/SET LINENO (X.MEM) 

537 

0665 

3067 


DCA LINENO 


539 

0666 

5237 


JMP KRITE*2 


539 

0667 

1023 

wtestg; 

tA5 THISLN 

/INIT GROUP printout 

540 

067? 

5253 


JMP WTEST2 


54l 

76h 

3026 


DCA 0E8GSW 


542 

7672 

5541 


POPJ 


543 

0673 

1065 

WXi 

TAO NACSW 


544 

■'674 

7750 


SPA SNA CLA 

/SKIP IF ALL 

545 

0675 

5271 


JMP WX»2 


546 

0676 

4551 


PRINTC 

/PRpT C.R, again 

547 

0 677 

5264 


JMP WALL 


548 

077 ? 

('000 

XTESTC; 

0 /TEST 

tme Nature of the next alphanumeric ; "Testc" 

549 

0771 

4560 


spnor 

/ignore spaces 

553 

•0772 

455? 


SORTC 

/TEST The variable terminators 


0 
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551 

’7?3 

1771 



TERMS* 

•1 

552 

? 7 ’ 4 

5 7 '.1 K 


Jf'P 

I xtestc 

/YES * SORTC‘ IS SET 

553 

'’7.’5 

1 i'66 


TAO 

CHAR 

/NO 

55 A 

■'7.16 

2 3':^r. 


IS2 

XTESTC 


555 

,'’75'7. 

l2v!2 


TAO 

MF 


556 

7 1 0 

765' 


SNA 

CLA 

/TEST FOP "F" 

557 


5317 


JMp 

XT3 


553 

0712 

4561 


TESTN 


559 

• 0713 

5700 


JMP 

I XTESTC 

^ 1 

560 

'tlA 

741? 


SKP 


/other 

561 

r'7X5 

57i)0 


■ JMP 

I XTESTC 

/NUmoER 

562 

0716 

2300 


IS2 

XTESTC 


56 3 

0717 

2300 

. XT3. 

IS? 

XTESTC 

/RETMRNStTlNjFjA 

56A 

0720 

5700 


JMP 

I XTESTC 


565 

0721 

1 ■ 000 

■ XSORTC 

; p 

/SORT 

Char against table » "SORTC’ 

566 

0722 

ihi 


TAO 

I XSORTC 


567 

0723 

3012 


DC A 

XRT2 

/IST ARC is lIST;1 

568 

0724 

1412 


TAD 

I XRT2 


559 , 

0725 

7510 


SPA 


/LIST IS ended By a negative NUMBER 

570 

0726 

5340 


JMP 

SEXC 

/2AMO EXIT a NOT IN LIST 

571 

0727 

7041 


CIA 



572 

0730 

1066 


TAD 

CHAR 


573 

0731 

7640 


SiA 

CLA 

/compare 

574 

0732 

5324 


JMP 

• •6 


575 

0733 

1721 


tad 

I XSORTC 

/compute increment I 0 * N 

576 

0734 

7040 


cma 



577 

0735 

1012 


TAO 

XRT2 


578 

0736 

3054 


DCA 

SORTCN 


579 

0737 

7410 


SKP 


/iST exit I YES 

5a0 

0740 

2521 

SEXC. 

IS? 

XSORTC 


581 

0741 

2321 


IS2 

XSORTC 


582 

0742 

7300 


CLA 

CLL 


583 

0743 

5721 


JMP 

I XSORTC 


564 

0744 


crptst, 

i 0 

/AC VS 

LINEnO • "TSTgRP” 

5e5 

0745 

•104 


AND 

P76e0 

'i 

586 

0746 

7341 


CIA 



587 

0747 

3071 


OCA 

T2 


588 

0750 

1067 


■ tad 

lineno 


589 

0751 

■•‘104 


ANO 

P7600 


590 

0752 

3 071 


tAO 

T2 


591 

0753 

7650 


SNA 

CLA 


592 

0754 

2344 


ISZ 

GRPTST 


593 

0755 

5744 


JMp 

I GRPTST 


594 



/input 

FROM 

TEXT OR KEVgOAROI 

595 



/IF PACK-ARROWi RESTART INPUT 

596 

0756 

•.■303 

INPUT* 

0 


/iNptiT A Character 

597 

0767 

3 036 


TAO 

INSUB 

/non-iero for keyboard 

598 

0760 

764 3 


SZa 

CLA 


599 

0761' 

5364 


JMP 

.43 


65^0 

0762 

4545 


CETC 


6Cl 

0763 

5756 


JMP 

I INPUT 


6t'2 

0764 

4552 


RE A DC 


6^3 

0765 

4547 


SORTJ 


6P4 

0766 

6776 



SREClAL-1 

605 

0767 

3402 



INFIX*: 

Special 



/FOCLl?. 

6C6 

6"7 

6?6 

6"9 

610 

611 

612 ' 

613 

614 

615 

616 

617 
, 618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 
6*4 

655 

656 
6*7 
658 
6*9 
660 


37 



7IAL10 

V 

JAN» 

71 
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5756 


jMP I Input 


I’ ? 7 1 

1035 


IPi 


/, 

,->772 

■617 


PROCESS 


/I 

.•’4' 3 

614 


PCI 


/CR 





/ENGLISh^FREN'CH 


774 

cohlst 

■. 

/COMMANo decoding list 

■>774 

323 


323 

/SET 

» Organize 

?775 

■306 


306 

/FOR 

■i- Qua NO 

?776 

•311 


311 

/IF 

» S I 

?777 

334 


304 

/DO 

« FaIZ 

1 ? « ? 

•307 


307 

/GOTO 

- va 

17?! 

373 


303 

/COMMENT" COMMENTE 

1 f>72 

•301 


301 

/ASK 

• DEMANOE 

i?r3 

■324 


324 

/TYPE 

" Tape 

i ??4 

-317 


317 

/OUTPUT 


i?75 

'305 


305 

/ERASE 

B BIFFE 

17 76 

•327 


327 

/WRITE 

" Inscris 

1777 

-315 


315 

/MODIFY 

" MooIFIE 

1 .■'10 

':'321 


321 

/QUIT 

« ARRETE 

i7il 

322 


322 

/RETURN 

" RETOURNE 

1712 

0314 


314 




/This 

cohmano list is Speed optimized. 



/CONOltlONAL transfer PROCESS, 

1713 

4564 

IFi 

TESTC 


/IGNORE SPACES AND 

1714 

4637 


JMS I IECALL 

/T 

1715 

2013 


ISZ POLXR 

/N-DUMP THE (EFOP) 

1016 

4640 


JMS I IPART 

/f«cwECk for paren 

1017 

illl 


TAO M2 


/A 

1020 

3032 


OCA T1 



1021 

1045 


TAO FLAC*1 

/TEST -le,* 

1022 

7510 


SPA 



1*023 

2032 


ISI Tl 


/N-TO >1,"2««3 

1324 

7750 


SPA SNA 

CLA 


1705 

2032 

ir3, 

ISZ Tl 


/COUNT COMMAS 

1026 

7410 


SKP 



1027 

5765 


JMP I COM0044 

/transfer 

1 ?30 

4547 


SORTJ 


/search text untill 

17 31 

1375 



TLlST-1 


1732 

7373 



ILIST-TlIST 

1733 

4545 


GETC 



1* 134 

*230 


JMP ,.4 



17 35 

4545 

IFI, 

GETC 


/MOVE PAST comma 

1736 

5225 


JMP IF3 



1037 

1601 

iecall 

ECALL 



1040 

2051 

IPARTf 

PAPTEST 





/LOOP 

CONTROL STATEMENT 



1041 

sett*, 



/subset of "FOR". 

1741 

4547 

FOR, 

PUSHJ 


/LOOPS, etc. 

i 7 4 2 

i4;n 



GETARG 

/LOOK FOR NExT 

1743 

4560 


spnor 


/ignore spaces 

1044 

1066 


TAO CHAR 


1045 

l335 


TAP MEO 



1 04 6 

7447 


SZA 




/rocLi?.-!? 


# 

DIAL!*' V’.‘'3 llijAN«71 23106 PACE 1*^12 


661 

1 M7 

4 566 


EPP0«4 


/left of In FRPOPI 'FOR* OR 'SET' 

662 

1 

! ’’3 '2 


Ti? PTl 



66 3 

1 ■’51 

4542 


»USMA 


/SAVE pointer to VARIABLE 

66A 

1.-’52 

d 5 4 '1 


PIJSHJ 



665 

ic’53 

1 612 



EVAU-I 

/get initial value expression 

666 

■i -^54 

1.413 


PQPA 



667 

li'55 

3330 


OCA PTl 



668 

1 056 

4 407 


riMT 


/initialize NOV', 

669 

i?57 

6430 


rPuT I 

PTl 


670 

1260 

'000 


FXfT 



671 

1061 

4547 


SOPTJ 


/TEST LAST ChAR FROM "CVAL" 

672 

1062 

1375 



TLIST-1 


673 

1063 

7201 



FLISTl- 

tlist 

67A 

1064 

4566 


ERR0R4 


/EXCESS RitPAR 

675 

1065 

1030 

FINCR» 

Tad PTl 


/SAVE variable address • 

676 

1066 

4542 


PUSHA 



677 

1067 

4540 


PUSHJ 


/EVALUATE THE INCREMENTilF ANY# 

678 

1070 

1612 



EVAuil 


679 

1071 

4547 


SORTJ 


/TEST terminators 

650 

1072 

1375 



TUIST-I 


681 

1073 

7176 



FLIST2- 

TLIST 

682 

1074 

4566 


ERR0R4 


/illegal terminator in *fop* 

683 

1075 

4543 

FLlMiTi 

PgSHF 


/SAVE the increment, • 

68^ 

1076 

2832 



FLARG 


685 

1077 

4540 


pushj 


/get The limiting error detection after limit) 

666 

li0!3 

1,612 



EVAL-1 


687 

1101 

4543 

rCONT* 

PUSHF 


/SAVE The limit » 

688 

1102 

2832 



FLARG 


689 

1103 

4543 


pushf 


/SAVE TEXT of object STATEMENTS 

690 

1104 

.1017 



TEXTP 


691 

U05 

4548 


PUSHJ 


/DO THE OBJECT STATEMENTS 

6o2 

1106 

;’6l0 



PROCESS 


693 

1107 

4544 


POPF 


/RESTORE remaining TEXT, 

694 

1110 

.1017 



TEXTP 


695 

Till 

4544 


POPF 


/GET LIMIT 

6o6 

lil2 

2032 



FLARG 


697 

1113 

4544 


POPF 


/get INCREMENT 

698 

1114 

7470 



ITERI 


699 

1 li5 

1413 


POPA 


/GET VARIABLE ADDRESS 

7710 

1116 

3030 


OCA PTl 



701 

1117 

4407 


FInT 


/increment AnO test 

702 

1120 

.'438 


FCET 1 

PTl 

/LOAD the variable 

703 

1121 

1733 


FAOD I 

FINKP 

/INCREMENT IT 

7p4 

1122 

6430 


FPUT I 

PTl 

/chance IT 

705 

i 123 

2525 


FSUB I 

flargp 

/’TEST IT 

706 

1124 

;*800 


rxiT 



7?7 

1125 

1045 


Tad flac*1 


708 

1126 

7740 


SMA SZA 

CLA 


709 

1127 

5541 


POPJ 


/ENo OF LOOP 

710 

1130 

1 335! 


TAO PTl 



711 

1131 

4542 


PUSMA 


/SAVE ADDRESS • 

7l2 

ii32 

4543 


PUSHF 


/SAVE increment AGAIN • 

7l3 

il33 

7470 

FINKP# 


iTERl 


7l4 

1134 

5301 


JMP FCOKT 


7l5 

il35 

7503 

MEO. 

9.275 




/rOCLl2.t7^ 

DIAL10 

V -^03 

11-.JAN«71 

23106 PAGE 1^ 

7l6 

V6 

7524 

xC0m» 

<•254 

• 

7l7 

ii'7 

4543 

riNfiN; 

PUSNF 

/SET increment TO ONE 

7lS 

1 4 ^ 

24i''5 


FLTONE 


7l9 

1141 

53f'l 


JMP FCO^T 


72f 



/ 



721 



/same PRAN • JUST moved 


722 



/ 



723 

n 4 2 

:‘000 

RANG. 

0000 


724 

U43 

2000 


2000 


725 

1144 



0000 


726 

1145 

4407 

XRAn. 

riMi 


727 

1146 

1342 


PADO RANG 

/««««•«•• 

726 

i 147 

4755 


PHUL I CRUDOY 


729 

t i5n 

6342 


rPUT RANO 


730 

1151 

1000 


pxiT 


731 

1152 

3342 


dca hano 


732 

1153 

3044 


OCA PLAC 

/••«««•«• 

733 

ii54 

5536 


JMP I EPUN3I 


734 

1155 

6160 

CRUOOY, 

RA^^MUL 


735 



/take the integer PART' 


736 

1156 

4453 

XlNTi 

JMS I INTEGER 

/{Fix) 

737 

1157 

7200 


CLA 


738 

1160 

5536 


JMP I EPUN3I 


739 


1161 

COMGO«V 

/COMMAND routine ADQRESSeS 

740 

1 161 

1041 


SETT 


741 

i 162 

1041 


roR 


742 

1163 

1013 


IF 


743 

1164 

0 420 


DO 


744 

1165 

C603 


GOTO 

/{REFERENCED) 

745 

1166 

0614 


COMMENT 


746 

1167 

1200 


ASK 


747 

1170 

1201 


Type 


746 

iih 

7706 


OUTPUT 


749 

1172 

2206 


ERASE 


750 

1 173 

0635 


WRITE 


751 

1174 

1254 


MODIFY 



752 

1175 

2177 


start /RETURN 

TO command mode VIA 'OUI 

753 

1176 

1563 


RETRN 


714 

1177 

6346 


ltape 


755 



/INPUT 

iOUTPUT statements 

756 

1 200 

7240 

ASK. 

CLA CMA 

/remember WHICh CALL. 

757 

1201 

3056 

TYPE. 

OCA ATSw 


758 

1202 

4547 

TASK, 

SORTJ 

/SPECIAL CHAR? 

759 

1203 

1367 


ALIST-l 


760 

1204 

*200 


ATLIST- 

ALIST 

761 

i 205 

2056 


IS? ATSW 

/TEST QUOTE SWITCH 

762 

1206 

5223 


JMP TYPE2 


763 

1207 

4540 


PUSHJ 

/DO ASK) SETUP PTl 

764 . 

1210 

l4'.il 


CETARG 


765 

1211 

1/66 


TAD CHAR 

/SAVE IN-LINE CHARACTER, 

766 

1212 

4542 


PUSHA 


767 

1213 

1253 


TAD COL 

/TYPE COLON 

766 

1214 

4551 


PRiNTC 

/(Cla)- to supress 

769 

1215 

2036 


ISZ INSUB 

/indicate 'READC 

770 

1216 

7301 


lAC 

/POINT past char 


/F0Cl12 


vlAU10 

V ”'3 

llljANe71 

23106 PAGE 1»14 

771 


4531 


JMS I fl^PUT 

/READ DATA A^■0 SAVE 

772 


1413 


POPA 

/RE*.TEST LAST TERMINATOR 

773 


3 366 


OCA CHAR 


774 

•‘22 

5230 


JMP ASK 

/CONTINUE PROCESSING 

775 


4540 

TVPE2» 

PUSHJ 

/DO TYPE 

776 

’7 24 

1613 


EVAl 


777 

'■-?5 

4530 


JMS I FOUTPUT 

/PRivT 

778 

•I 223 

5201 


JMP TYPE 


779 

■! 222 

2026 

TQUOTi 

ISf DE0GSH 

/DISABLE trace 

7r0 

< ? ?0 

4545 


GEtC 

/type literals 

781 

1231 

4547 


SORTJ 


782 

1232 

1531 


TLIST2- 

1 

733 

1233 

..645 


TLIST3- 

TLIST2 

784 

1234 

4551 ■ 


PRiNTC 


785 

1235 

5230 


JMP TQUOT»l 


786 

12 36 

4545 

TINTRi 

GEtC 

/PASS PERCENT SIGN 

7e7 

1237 

4554 


GEtlN 

/read FORMAT CONTROL? "X7,03" 

788 

1240 

1067 


tad lineno 


789 

1241 

3052 


dca nsw 

/SAVE FORMAT CODE 

790' 

1242 

5232 


JMP TASK 


791 

1243 

1077 

TCRLr2, 

tAD CCR- 

/splatscr alone 

792 

1244 

4463 


JMS I OUTDCV 


793 

1245 

7001 


lAC 

/non-printinc delay for C.R. *»••* 

794 

i2'46 

1077 

TCRLFi 

tAO CCR 

/exclamation POINTpCR.LF, . 

795 

1247 

4551 


PRiNTC 


796 

1250 

3026 

TASK4» 

OCA OEBGSW 

/• 

797 

1251 

4545 


GEtC 

/• 

798 

1252 

5202 


JMP task 


799 

1253 

2272 

COL. 

272 

/"I" 

800 



/ir di:bgsw?0 i enable flip-flop -dmpsW" 

801 



/ 

P0I disable and 

RETURN ALL"?" » S. 

802 



/IF oMPSW i 0| TRACE ON 

, IF enabled 

803 



/ 

«0I TRACE OFF 


804 



/IF 80TM f 0 1 PRINT trace, 

805 



/SEARCH 

ROUTINES 


806 

1254 

4554 

modify; 

GETLN 

/read line NO, • 

807 

?255 

4555 


finoln 

/LOOK IT UP NOW, 

808 

1256 

4566 


ERR0R2 

/NOT THERE • 8A0 COMMAND UNLESS iEPO 

809 

1257 

1060 


TAD 9UFR 

/SET pointers 

610 

1260 

3010 


DCA AXIN 

/FOR INPUT 

eii 

1261 

3062 


OCA XCTIN 


8l2 

1262 

1067 


TAO lineno 

/COPY the SAME LINE NUMBER, 

ei3 

1263 

.341(3 


OCA I AXIN 

/(XLmEM) 

814 

1264 

1010 


TAO AXIN 

/SAVE START OF NEW LINE 

8l5 

1265 

3027 


OCA PACKST 


816 

1266 

4464 

SCONT# 

JMS I INOEV 

/read the teletype input silently, 

8l7 

1267 

3130 


DCA LIST3*1 

/SAVE SEARCH CHARACTER 

816 

1270 

2326 


IS2 OEBGSW 

/NO BREAKS,' 

8l9 

i2n 

4545 

SCHAR. 

GEtC 

/TYpr-TEST-F'.F. 

820 

1272 

4551 


PRiNTC 

/playback the TEXT 

821 

1273 

4547 


SORTJ 

/LOO(^ FOR MATCH 

822 

1274 

.'776 


LIST3-1 


823 

1275 

1267 


LISTGO-LIST3 

824 

12^ 

4546 


PACKC 

/SAVE NEh line. 

825 

1' 277 

5271 


JMP SCHAR 



/rOCLl2.a7^^ 

tiALl? 

V.’03 

ll-JAN»71 

23136 PAGE 

826 


1 ^76? 

SBAP, 

TAD BUFR 

/RESTART^B. A. 

6?7 

1 



lAC 


828 

1?.''2 

•3012 


OCA AXIN 

/SET pointers 

829 

I3f'3 

3062 


DCa XCTI'I 


830 

1 3^'4 

4552 

SFOunD, 

REaOC 

/reat from keVboard 

831 

i 3r'.5 

4547 


SORTJ 

/TEST 

832 

i 31^6 

271 


LIST6-1 


833 

i3t^7 

1267 


SRNLST- 

LIST6 

834 

1 310 

4546 

SCOT, 

PACKC 

/PACK char, 

835 

1311 

5304 


JMP sroUND 

/MORE 

836 

i 3 1 2 


SORTB# 

0 /SORT AnD Branch routine, « "SORTJ" 

837 

1313 

7450 


SNA 


838 

1314 

1066 


TAO CHAR 

/ASSUME CHAR IF ACi0 

839 

1315 

7^41 


CIA 


840 

1 316 

3071 


OCA T2 

/SAVE SORT item 

841 

1317 

1712 


TAO I SORTS 

/FIRST APG IS LIST LESS ONE 

842 

1320 

2312 


ISZ SORTS 

/2AnD IS iNTRA-LlST LENGTH 

643 

1321 

3012 


DCA XRT2 


844 

1322 

1412 


tAO I XRT2 


845 

1323 

7510 


SPA 

/••LISTS ended by negative NUMBERS** 

846 

1324 

5336 


JMP SEX 

/read EXIT 

847 

1325 

1071 


TAO T2 

/find ADDRESS 

848 

1326 

7640 


SZA CL.A 


849 

1327 

5322 


JMP ,-5 


850 

1330 

1012 


tAO XRT2 

/match Found, 

851 

1331 

i712 


TAD I SORTB 


852 

1332 

3071 


DCa T2 


853 

1333 

1471 


TAD I T2 


854 

1334 

3371 


DCA T2 

/DEBUG 1 AC ■ ADDRESS 

855 

1335 

5471 


JMP I T2 


856 

1336 

2312 

sex. 

ISZ SORTB 

/match NOT FOUND', 

857 

1337 

7300 


CLA CLL 


858 

1340 

5712 


JMP I SORTB 

/RETURN TO CALLING SEQUENCE. 

859 



/ANalOcUE to digital conversion for pop-12 

360 

1341 

4453 

XAOC. 

JMS I INTEGER 


661 

1342 

:-.360 


AND 037 


662 

1343 

1357 


TAO OSAMP 


863 

1344 

3347 


DCA ,*3 

/*••***** 

864 

1345 

6002 


lor 


865 

1346 

6141 


6141 /LINC 


866 

1347 

'’100 


i?100 /SAM ? 

/««««••»• , 

867 

1350 

0002 


0002 /POP 


668 

1351 

6001 


ION 


669 

1352 

3945 


DCA FLAC*1 

/•••««••• 

870 

1353 

3046 


OCA FLAC*2 


871 

1354 

7326 


CLA CLL CML RTL 


872 

1355 

3044 


DCA FLAG 


873 

1356 

5536 


jMp, I EFUN3I 


874 

1357 

.'100 

OSAmPi 

0100 /SAM 0 

/•#«#««•« 

375 

1360 

0 337 

037. 

37 


876 


1361 

SRNlST* 

. /'MODIFY' Control character table 

877 

1361 

1271 


SCMAR /F.F, » 

continue 

878 

1362 

1266 


SCONT /bell * 

change search character 

379 

1363 

2740 


RECOVR /CiC. ? 

BREAK 

880 

1364 

1330 


SSAR /8.A. 9 

RESTART 


0CLl2 


' IAL10 

V '*^3 

llijANf?! 

23106 PAGE li^ 

531 

i 365 

:267 


SCONT*! /L.F, ■ 

FINISH THE LINE AS BEFORE, 

ees 


i366 

LISTGO* 

t 


853 

1366 

261 


3-ETn /C.R. ? 

END THE line here AS IS, 

884 

i '<67 

1 3ie 


SCOT /char » 

search character 

385 


1. 3 7 0 

ALIST*. 

/ aSK/TYPE list 

OF c'ntrcls. 

886 

i 370 

■245 


245 /% 


837 

1.371 

■ ■242 


242 /»» 


838 

1 3 72 

■'241 


241 /I 


889 

1373 

•243 


243 /» 


690 

1374 

:244 , 


244 /$/// 


891 


1375 

GLIST»V 



692 

1375 

4 240 


240 /SPACE 


693 


1376 

TLIST'V 



394 

1376 

'J254 


254 /, 


895 

1377 

■>273 


273 /» 


896 

1400 

’215 


215 /C,3, 


897 



/THIS LIST IS ENDED 8Y 

’TESTC* , 

898 



/^I^JO 09 Enter a variable In the list. 

899 

1401 

4564 

GETarC, 

testc 

/first LETTER OF ARC 

900 

J402 

7200 

P72<d(U 

72?0 


901 

1403 

4566 


ERR0R4 


902 

1404 

7000 


MOP 


903 

1405 

3062 

GETVARi 

OCA xctin 

/PACK INTO ADD, 

904 

1406 

4546 


PACKC 


905 

1407 

■ 4545 


GEtC 

/SECOND letter 

906 

i 410 

4550 


S02TC 

/TERMlNAtOR? 

907 

1411 

1771 


TERHS-l 


\08 

1412 

5224 


JMP GSERCH 

/YES 

9<.9 

. 1413 

1066 


TAD CHAR 

/NO 

9n 

1414 

!il22 


AND P77 

/SAVE 2AN0 letter OF NAME 

911 

1415 

1061 


TAO OAOD 


9l2 

1416 

3061 


OCA OAOO 


9l3 

1417 

4545 


GEtC 

/ignore the rest 

9l4 

1420 

455PI 


SOPTC 


9l5 

1421 

1771 


TERMS"! 


9l6 

1422 

5224 


JMP GSERCH 


9l7 

1423 

5217 


JMP ,»4 


9l6 

: K''4 

4562 

gserch. 

tstlpr 

/LOOK FOR SUBSCRIPT VIA SORTCN 

9l9 

i4?5 

5235 


JMP GSl 

/NOT subscripted BY L-PAR, 

920 

1426 

1061 


TAO QAOO 

/SAVE name 

921 

1427 

3056 


OCA EFOP 

/for recursive and error check 

922 

i 430 

4663 


JMS I GECALL 

/TO EVAL 

923 

1431 

1413 


POPA 


924 

1432 

3061 


dca qado 

/RESTORE NAME 

925 

14 33 

4662 


JMS I ptest 

/TEST PAREN match, etc. 

926 

14 34 

'453 


JMS I INTEGER 

/convert to 12-bit number, 

927 

1435 

3171 

GSl. 

OCA SUBS 

/SAVE SUBSCRIPT 

928 

1436 

1061 


TAli OAOO 


929 

1437 

'■1-31 


AND P7700 


930 

1440 

i202 


TAP P7200 


931 

1441 

7650 


SNA CLA 


932 

1442 

5322 


JMP FFF 


933 

1443 

1060 


TAP STARTV 

/search rOR VARIaBLEICHANGE for 

. 934 

1444 

.3030 

CSS, 

OCA PTl 


935 

1445 

1030 ' 


TAn PTl 



» 


/rOCLl2,3J 


tiAUl? 

v:i33 

11»JAN-71 

23106 PAGE 

936 * 

i|P4 6 

7041 


CIA 

• 

9.37 

i 447 

1331 


TAO LASTV 

/TEST FOR ENT OF LIST 

938 

i 

775 .’ 


SPA SNA CLA 


9?9 

1 451 

5264 


JNP GS2 

/end SEARCN 

94S 

1452 

l43? 


TAI5 I PTl 

/GET table EvTRY 

941 

i 453 

7?41 


CIA 


942 

1454 

1061 


TAD OADD 


943 

1*455 

765C 


SNA CIA 


944 

1456 

831? 

V 

JMP GFNOl 

/FOUND XX 

945 

i 457 

l?3p 

GS4, 

TAO PTl 

/TRY NEXT ONE 

946 

146? 

1070 


TAD GINC 


947 

1 461 

5244 


JMP GS3 


946 

1462 

2051 

PTESTr 

PARTEST 


949 , 

1463 

16?1 

G C C 4 L li # 

ECALL 


950 . 

1464 

1031 

GS2. 

tag lastv 

/ADD the variable 

951 

1 465 

1005 


TAD P13 

/TEST STORAGE LIMITS 

952 

1466 

7141 


CIA CLL 


953 

1467 

1013 


TAD POLXR 


954 

1470 

7620 


SNL CLA 


955 

1471 

4566 


ERRORS 


956 

1472 

1031 


tad lastv 

/update the list. 

957 

1473 

1070 


TAD GINC 


958 

1474 

3031 


OCA LASTV 


959 

1475 

1061 


TAD OAOO 

/SAVE NAME 

960 

1476 

3433 


OCA I PTl 


961 

i4?7 

2030 


ISI PTl 

/SAVE SUBSCRIPT 

962 

1500 

1171 


Tad subs 


963 

1501 

3433 


DCA I PTl 


964 

1502 

2030 


ISI PTl 

/set PTl 

965 

1503 

4407 


FINT 


966 

1504 

i-537 


FCET 1 CFRSX 


967 

1505 

6430 


FPUT I PTl 


968 

1506 

0 0 0 


PXiT 


969 

1507 

5541 


POPJ 

/EXIT 

970 

i '510 

1330 

CPNOl# 

TAD PTl 

/FOUND SAME 

971 

1511 

3311 


OCA XRT 

/TEST SUBSCRIPTS 

972 

1512 

1411 


TAD I XRT 


973 

1513 

7341 


CIA 


974 

1514 

1171 


Tad subs 


975 

1515 

7640 


SZA CLA 


976 

1516 

5257 


JMP 0S4 

/WRONG SUBSCRIPT 

977 

?517 

2033 


ISI PTl 

/set pointer To data 

978 

1520 

2330 


ISI PTl 


979 

1521 

5541 


POPJ 


980 

1522 

7030 

FFF, 

DCA PTl 


981 

1523 

1361 


Tad oaod 


9b2 

1524 

3?02 


DCA LWETMP 


983 

1*525 

1345 


TAD HORO 


984 

1526 

3170 


dca LESuea 


985 

1*527 

1171 


TAD SUBS 


986 

1530 

3167 


OCA SUBS2 


937 

1531 

5541 


POPJ 


988 

1532 

' 242 

TlIST2. 

242 


989 

1533 

.•215 


213 


990 

1534 

7520 

m260. 

«260 





ON F 


/FOClI?. 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1070 

. 1001 
1002 
10P3 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 
1017 
1016 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 



tjlAL10 

V M3 

li;^JAN-71 23106 PACE 

1535 

■ 01* '“I' 

XSPnoR, 

3 /ignore leading spaces * "SPNOR" 

1 S36 

1066 


TAD CHAR 

1537 

1114 


TAG M242 

1540 

7640 


S2A CLA 

1*541 

5735 


JMP I XSPNOP 

1 542 

4545 


GEtC 

i‘=43 

5336 


JMP XSPNOR*! 

1544 

75ri6 

m272. 

.*272 /«••***•# 

1545 

■J012 

012, 


1546 

,300 

XTESTNl 

0 /RETURNSi V» OTHER! NUMBER • "TESTn 

1547 

1066 


tAD CHAR 

1550 

1115 


Tad mper 

1551 

7640 


SZA CLA 

1552 

2346 


ISZ XTESTN 

1553 

1066 



1554 

1 344 



1555 

7100 



1556 

1345 



1557 

3054 



1560 

7430 



1561 

2346 



1562 

5746 


JMP 1 xTESTN /••*»•**» 

1563 

1137 

/EXIT TROM A "DO" SUBROUTINE 

re.tpn# tad cfrsx /(Pc) *> ^ 

1564 

3022 


OCA PC 

1565 

ins 

XPOPJ* 

tAO I PDLXR /RECURSIVE EXlT i "POPJ" 

1566 

3071 


OCA T2 

1567 

5471 


JMP I T2 

1570 

1570 

ATLISTb 

, /ASK-TYPE CONTROL CHARACTER TABLE 

1236 


tintr /X • format delimiter 

1571 

1227 


TQUOT /" • literal delimiter 

1572 

1246 


tCRLF /I a carriage return AND LiNE FEED 

1573 

1243 


tCRLF2 /# a carriage RETURN ONLY 

1574 

3052 


TDuMP /S/a oump The symbol Table contents 

1'^75 

1250 


TASK4 /SPa terminator FOR nAmES 

1576 

1250 


TASK4 /, a terminator FOR EXPRESSIONS 

1577 

3610 


PROCESS /! a terminator FOR cOmmaNQS 

1600 

'614 


PCI /c,R, a terminator for strings 



/$ • Tor 'tdump* terminates the command, 

/evaluate an Expression which 
/terminates with an R»PaR,| or c.R, and 
/leave the result in FLaC and in flarg, 

1601 

! 000 

ecall# 

0 /RECURSIVE CALL TO "EVAL” 

1602 

1354 


TAD SORTCN /S*VE ' SORTCN ' » ' LASTQP » , AND 'EFOP' 

i 603 

4542 


PU5HA 

1604 

1055 


tag lastop 

1605 

4542 


PUSHA 

i 606 

1056 


tag efop /save function Code, 

1607 

4542 


PUSMA 

1610 

■j2'n 


TAD ecall /return TO CALLING 


/F0Cl12 

1 

OI4L10 

Vi'03 

HLjaN»71 

23106 PAGE IjH 

lC-t6 


4542 


PUS«A 

/AOOPESS AFTFR^WXT POPJ 

1C47 

• i 12 

4545 


GETC 

/HOVE PAST EXTRA CHARACTER 

1?48 

1 *1 3 

3755 

eval. 

DCA lastop 

/evauation Controller (Checkpoint ?) 

1F49 

1*^4 

4564 


TESTC 

/TEST character and IGNORE SPACES 

1050 

1615 

5227 


JMP ETERMl 

/terminator 

1051 

1416 

5332 


JMP ENU” 

/NUi»iPER 

1052 

i 617 

5343 


JMP EFUN 

/function 

1053 

16 20 

454kl 


PUSHJ 

/letter of variable 

1054 

1621 

1435 


getvar 

/find or create variable* also set PTl, 

1055 

1*622 

4564 

opnext; 

TESTC 

/PT1»>ARC 

1056 

1623 

5244 


jMP ETERmn 

/T 

1057 

i 624 

,212 

echolst 

.P2l2 

/N-ERROR in format 

1050 

1625 

;377 


0377 

/F 

1059 ‘ 

^ 1626 

4566 


ERR0R4 

/L • MISSING OPERATOR 

1060 - 

16 27 

1137 

ETEPMi; 

TAD CFRSX 

/SET PTl. 

1061 

1630 

3030 


DCA PTl 

/TO POINT TO ZERO 

1062 

1631 

1111 


tAb M2 

/TEST FOB unary OPERATIONS 

1063 

1632 

1054 


TAD SORTCN , 


1064 

1633 

7450 


SNA 


1065 

16 34 

5247 


JMP ETERM 

/CREATE dummy FOR UNARY MINUS 

1066 

1635 

7001 


lAC 


1067 

1636 

7650 


SNA CLA 


1068 

1637 

5323 


JMP ARCNXT 

/ignore unary plus 

1069 

1640 

1054 


tAb SORTCN 

/TEST FOR null PARENS. 

1070 

1*641 

1121 


tad Mil 


1071 

1642 

7710 


SPA CLA 


1072 

1643 

5364 


JMP ELPAR 

/MIGHT BE AN L-PAR', 

1073 

1644 

4562 

etermn: 

TSTLPR 


1074 

1645 

7410 


SKP 


1075 

1646 

4566 


ERR0R4 

/OPERATOR MISSING BEFORE PAREN 

1076 

1647 

1054 

CTERMi 

TAD SORTCN 

/set from "TESTC'-wSORTC* 

1077 

1650 

3024 


DCA THISOP 


1076 

1651 

1024 


TAb THISOP 


1079 

1652 

1121 


TAD Mil 


1080 

1*653 

7700 


SMA CLA 

/ENoT 

1081 

1654 

3024 


OCA THISOP 

/"THISOP" EOUlV, TO END OF EXP, 

1082 

1*655 

1024 

ETERH2; 

TAD THISOP 

/compare priorities 

1083 

1*656 

7041 


CIA 


1084 

1657 

1055 


TAb lastop 


1085 

1660 

7710 


SPa CLA 


1086 

1661 

5310 


JMP EPAR 

/continue 

1037 

1662 

1055 


tad lastop 

/fino operation 

1088 

1663 

7112 


CLL RTR 


1089 

1664 

7012 


RTR 


1090 

1665 

1331 


TAD OPTABL 


1091 

1666 

3274 


DCA FLOP 


1092 

1667 

1055 


tAD LASTOP 


1093 

1670 

7640 


SZa CLA 

/TEST FOR END OF DATA INTO FLOATING AC 

1094 

1*671 

4544 


POPF 

/GET last DATA 

1095 

1672 

^■^44 


flag 


1096 

1*673 

4407 


FINT 


1097 

1*674 

; 000 

FLOP. 

00 

/{FlOPR I PTl)*-*/ 

1098 

1675 

6525 


FPUT 1 FLARCP 

/SAVE RESULT 

1099 

1676 

;'030 


FXlT 


1100 ■ 

1677 

1125 


TAD FLARCP 



/F0CL12.T7 


0UL12 




33I0« 


PACE 1 



ll-l 

i 7 0 -3 

3030 


DCA PTl 

Ilf 2 

1771 

1 ?24 


TA-’ THISOP 


772 

1055 


TAD LASTOP 


‘ T-n 

765.’ 


SNA CLA 

11.15 ■ 

1774 

5541 


POPJ 

ll;'6 

■!7.'5 

1413 


f^OPA 

1107 

1776 

3355 


DCA LASTOP 

1106 

17 7 7 

5255 


JMP ETERM2 

iir-P 

1713 

4562 

EPAR, 

tSTLPR 

UlO 

1711 

741?! 


SKP 

nil 

1712 

5366 


JMP EPAR2 

1112 

1713 

1055 


TAD LASTOP 

1113 

1714 

4542 


PUSMA 

lllA 

1715 

1030 


TAD PTl 

Ul5 

1716 

3320 


DCA ,*2 

ni6 

1717 

4543 


PUSHF 

1117 

172? 

.000 


00 

ni8 

1721 

1024 


TAD THISOP 

1119 

1722 

3355 


DCA LASTOP 

1120 

1723 

4545 

argnxt; 

GEtC 

1121 

1724 

4564 


tesTC 

1122 

1725 

5364 


jMP ELPAR 

1123 

1726 

5332 


JMP ENUM 

112A 

1727 

5343 


JMP efun 

1125 

1730 

5220 


JMP OPNEXT-2 

1128 

1731 

0430 

OPTaBL; 

FGET I PTl 

1127 

1*732 

4543 

ENUM. 

PUSHF 

1128 

1129 

1733 

1734 

i:-:04 4 

1125 


FLAG 

TAD FLARGP 

1130 

1735 

3030 


DCA PTl 

1131 

1736 

3036 


DCA INSue 

1132 

1737 

4531 


JMS I FInPUT 

1133 

1740 

4544 


POPF 

1134 

1135 

1741 

1742 

,’044 

5222 


flag 

JMP OPNEXT 

1138 

1743 

3056 

efun. 

DCA EFOP 

1137 

1744 

4545 


GEfC 

1138 

1745 

4564 


TESTC 

1139 

1746 

5355 


JMP EFUN2 

1140 

1747 

5771 


JMP I PFNUM 

1141 

1750 

7^00 


NOP 

1142 

1751 

1056 


TAD EFOP 

1143 

1752 

7104 


CLL RAL 

114 4 

1753 

1066 


Tad char 

1145 

i 754 

5343 


JMP efun 

1146 

1755 

4562 

EFUN2» 

TSTLPR 

1147 

1756 

4566 


ERR0R4 

1148 

i 757 

42ol 


JMS ecall 

1149 

1 760 

1413 


POPA 

1150 

1761 

4547 


SORTJ 

1151 

1762 

2166 


FNTABL 

1152 

1 763 

6205 


fntabf 

1153 

.1 764 

4562 

ELPARr 

TSTLPR 

1154 

1765 

4566 


ERR0R4 

1155 

1766 

4 201 

EPAR2, 

JMS ECAll 


/a07 

/exit "eval" 

/get prior op 

/compare This op 

/TEST rop SU5-EXPRESSI0N 

/GO evaluate Expression 
/continue reading the expression 

/SAVE ’’LASTOP", 


/SAVE LAST argument 

/MORE TO COME 

/read 1ST CHaR OF AN AR6, 

/DO SPECIAL check 

/coulo be left paren 

/N 

/F 

/L 

/BASE FOR operation COMPUTATION 
/TO PROCESS A NUMBERiSAVE AC 

/SET pointer as for A VARIABLE, 

/POINT TO 'GETC* AND USE CHAR 
/read text number ■> (PTl) 

/restore The AC 

/continue 
/set code 

/read function name. a, 2 , or 3 letters) 
/•••••••• separates file because r digit 

/*••••*•• 

/»#####«# 

/««•»#««« 

/MlSH»MASH hash CODE 


/must be followed by parens to set argument 
/call "EVAL" To compute argument 
/branch on Function codejreturn via efunsiV 


FNTAbL 

/left paren oR fell through function table 
/double operators or Illegal function name; 
/evaluate nested expression 


•0Cl12.’«7^ 

cULie 

ve03 ll-JAN*7l ■ 

23106 PAGE 1^1^ 

1156 


2.n3 

IS? PDLX9 

/DUMP SW»A ARG, 

1157 

ITT;' 

5536 

JMP I Eru.N3l 


1153 

1771 

6311 

PFNU'I# FNUM 


1159 


’772 

TERMS*'.' /terminator taBLC TOR iEvAL' ANO »GETVARi 

1150 

r772 

.. 24 ^ 

240 

/space 3 

1161 

i 773 

. 253 

253 

/* 1 

1162 

1774 

■255 

255 

2 

1163 

1775 

^257 

257 

// 3 

116'* 

1 776 

.252 

^ 252 

/• 4 

1165 

1777 

; 336 

336 

/UP ARR 5 

1166 

7333 

;'250 

250 

/( 6 L"PARS 

1167 


.333 

333 

/C 7 

1168 

7732 

;>274 

274 

/< 10 

1169 

. 75133 

)251 

251 

/) 11 RwPaRS 

1170 

7334 

1-335 

335 

/3 12 

1171 

?3P!5 

',276 

276 

/> 13 

1172 

7336 

.•254 

254 

/• 14 

1173 

7337 

.273 

273 

/I 15 

1174 

7310 

' 215 

215 

/CtR. 16 

1175 

P311 

i’275 

275 /■ TO 

End CETARG FROM ISET» 

1176 



/TWO Minor functions 


1177 

7312 

4543 

XSCN. PUSHF 

/take SIGN*1 of FLARG 

1178 

7013 

2405 

FLTONE 


1179 

7314 

4544 

POPF 


1180 

?3i5 

3044 

FLAG 


1181 

2016 

1233 

XABSi TAD rUAR6«l 

/take absolute value of flac 

1132 

73i7 

7710 

. SPA Ci.A 

/SKIP TO CONTINUE 

1183 

7020 

4451 

JMS I MINSKI 

/NEGATE THE floating AC 

1184 



/continuation OF FUNCTION Calls, 

1185 

2021 

4407 

EFUNSi FINT 


1186 

7322 

7000 

FNOR 

/N0RMALI2E function RETURN 

1187 

2023 

6232 

FPUT FLARG 

/SAVE function value 

1188 

2324 

3000 

FXjT 


1189 

7025 

1125 

TAD FLARGP 

/SET POINTER 

1190 

2026 

3030 

OCA PTl 


1191 

7027 

4251 

JMS PARTEST 


1192 

7330 

5631 

JMP I ,*1 

/function REtURN IS OK 

1193 

2331 

1622 

OPNEXT 


1194 





1195 

2032 

3000 

FLARGi 0 /DATA 

Temporary storaCc 

1196 

2035 

.1000 

0 


1197 

2034 

.'H30 

0 


1198 

2035 

.'003 

0 


1199 

7036 

1003 

P3. 3 


12!^0 

7337 

,‘300 

lprtst; 0 

/SKIP IF left PArEN, • 'TSTLPR' 

1231 

7340 

1054 

TAD SORTCM 


1232 

2341 

1121 

TAO Mil 


1233 

2342 

773 0 

sma cla 


1234 

2343 

5637 

JMP 1 LPRTST 


1235 

204 4 

1054 

TAD SORTCN 


1236 

2345 

1120 

TAO m5 


1237 

204 6 

7740 

sma sza cla 


1238 

2047 

?237 

ISI LPRTST 


1239 

2050 

5637 

JMP 1 LPRTST 


1210 

2351 

;‘000 

PARTESf iC 

/test the parIn matchings 



23106 PAGE 
/RESTORE LAST OPERATION 


/♦3 TO compare Codes 
/get last parE\ code. 

/CMECK roR PaREN maTCm, 

/(Still set from the last '’eval") 

/SKIP IF matcm 

/paren error 
/move past RePAR 


/'JNCHAI.N A line and RECOVER THE SPACE-. 
/PROTECT pointer ChANGES FRQM INTERRUPTIONS 
/sets "THlSLN” and "LASTLN”. 

/ALREADY GONE 
/DISABLE trace 

/measure length 


/SAVE LAST address 


/length < 0 

/IT IS illegal TO DELETE THE FIRST LINE 


/JUST IGNORE Such commands 
/chance data field to TEXT,(X«MEM) 
/disconnect 

/start List aT top 
/examination address 
/get The next ador, 

/test for end 
/YES-WRAP UP All. 

/SAVE NEXT address; 

/compare line POSITIONS 


/SKIP IF THISLN > X 

/chance (xi to account for 
/garbage collection. 

/get next 


/BACKUP L FOR XR 


/SETUP END OF hose 



/rOCLl2. 




11-JAN-.71 

23126 PACE 1^^ 

1266 

W77 

3 312 


DC* XRT2 

V 

1267 


; ^57 


TAD CNTS 

/CORRECT END OF BUFFER POINTER, 

1268 


1 ^*6.'' 


TAD Purs 


1269 

9142 

3 363 


DCA BUER 


1270 

71<3 

1 


TAD AXl\ 

/COMPUTE count 

1271 

?14 4 

7,143 


CM A 


1272 

7145 

1312 


tAD XRT2 


1273 

?146 



DCA T1 


1274 

7147 

i31G 


V tAO AXIN' 


1275 

7153 

1057 


TAD CNTR 


1276 

7151 

3313 


DCA AXIN 


1277 

7152 

1412 


tAO I XRT2 

/SIPHON lower part, 

1278 

7153 

3411 


DCA I XRT 


1279 , 

9154 

9032 


IS2 Tl 


1280 

7155 

5352 


JMP .bS 


1281 

9156 

5265 


JMP XOELETE*! 

/RESET 'LASTIN', 'THISLN*, AND DATA FIELD'.' 

1262 

7157 

.000 

chin. 

0 

/read in a character SUBR, • "READC" 

1283 

9160 

4464 


JMS I INDEV 


1284 

7161 

3066 


OCA CHAR 


1285 

7162 

4550 


SORTC 

/LINEFEED OR RUBOUT? 

1286 

?i63 

1623 


ECHOLST 


1287 

7164 

5757 


JMP I CHIN 

/VES 

1289 

9165 

4551 


PRiNTC 

/echo the input 

1289 

?i66 

5757 


JMP I Chin 


1290 


2167 

FNTABL 

• B 


1291 

7167 

2533 


2533 /ABS 


1292 

7173 

2650 


2650 /SGN 


1293 

7171 

2636 


2636 /ITR 


1294 

7172 

2565 


2565 /DIS 


1295 

7173 

2630 


2630 /RAN 


1296 

7174 

2517 


2517 /ADC 


1297 

7175 

2572 


2572 /ATN 


1298 

7176 

2624 


2624 /EXP 


1299 

7177 

2625 


2625 /LOG 


1330 

9200 

2654 


2654 /SIN 

/list of coded Function names 

1331 

9201 

2575 


2575 /COS 


1332 

9202 

2702 


2702 /SOT 


1333 

9203 

2631 


2631 /NEW 


13p4 

7204 

i‘330 


0330 /FX 


13?5 • 

7205 

'332 


0332 /FH 


1336 



/erase 

single LInES.1 croups, or VARIABi.es 

1337 

2206 

4564 

ERASE* 

TESTC 

/TEST THE SECOND WORD, IF ANY, 

1339 

2707 

5241 


JMP ERVX 

/erase variables 

1339 

9910 

5224 


JMP erl 

/LINES OR GROUPS 

1310 

9711 

5215 


JMP ,*4 

/ERROR 

1311 

7712 

1066 


tAO CHAR 

/ALL TEXT 

1312 

7913 

1112 


tAD MINUSA 


1313 

7914 

7440 


szi 


13l4 

9915 

4566 


errors 

/bad arc for Erase,' 

131 5 

9916 

1135 

ERT, 

tad enot 

/ERASE all text •• 

1316 

7217 

3060 


DCA BUFR 


13l7 

??90 

3533 


OCA I CFRS 

/{X*^‘EM) 

13l9 

7271 

1060 

ERV, 

TAO STARTV 

/ERASE Variables *• 

1319 

7222 

3031 


OCA LASTV 


1320 

7993 

5177 


JMP START 

/POINTERS MAY BE DIFFERENT NOW, 




/rocLi? . 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 
1156 
1357 

1356 

1359 
1160 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1360 

1369 

1370 

1371 

1372 

1373 

1374 

1375 



DIAL 10 

V003 

li;jAN»7l 

23106 PAGE 

2?2 4 

4554 

EflL, 

getln 

/ERASE LINES. 

2?25 



tA6 BUFR 

/PROTECT REST OF TEXT, 


znz 


DCA AXIN 


??27 

4565 

EPC. 

delete 

/extract One LINE 


2023 


IS? THISLN 



1065 


TAO NARSW 


?232 

772!^ 


SMA CLA 


?233 

1423 


TAj I THISLN 

/{XeMEM) 

?234 

4563 


TStGRP 

/SKIP IF G(AC) ■ G(LINENO) 

??35 

5221 


JMP ERV 


2236 

1423 


TAD I THISLN 

/{X»MEM) 

2237 

3067 


DCA LlNENO 



5227 


JMP ERG 


7241 

1060 

ERVX. 

TAO STARTV 

/INlT variables may BE INDIRECT COmm, 

2242 

3031 


OCA LASTV 


2243 

5541 


POPJ 




/^^ouTiNE Called via «finoln*m 



/SEarCm 

FOP A GIVEN line IiO. ”LInENO»» 3 



/IST RCTURM IF not FOU^n• 



/2AN0 IF FOUND, 




/"ThiSlN*' » FOUND LINE 

qr next larger. 



/"LASTl’n" « LESSER AND/oR LAST, 



/"TEXTp 

'• IS SET 


2244 

C«000 

XFlNO» 

0 


224 5 

1133 


tA9 CFRS 

/INITIALIZE POINTERS TO FIRST LINE 

2246 

3025 


DCA LASTLN 


2247 

1133 


TAD CFRS 


2250 

3323 

FINON» 

OCA THISLN 

/SAVE THIS OnE 

9251 

1023 


TAO THISLN 


2952 

3011 


OCA XRT 


9253 

3 067 


TAO LlNENO 


9254 

7141 


CLL CMA I AC 

/CLEAR LINK and NEGATE LlNENO, 

9255 

1411 


TAO I XRT 

/LiNENOia will also be FOUNDIX.MEM) 

9756 

7459 


SNA 


2257 

2244 


ISZ XFINO 


2260 

7630 


SZl CLA 


2261 

5267 


JMP FEN03 

/PAST IT. 

9262 

1023 


TAO THISLN 

/MOVE POINTERS 

9963 

3025 


DCA LASTLN 


2264 

1423 


TAD I THISLN 

/end of text? {X*MEM) 

2265 

744 m 


SZa 


2266 

5250 


JMP FINDN 

/NOT YET 

9267 

1023 

rEN03» 

TAD THISLN 

/iST RETURN 9 NOT FOUND 

9270 

7001 


lAC 


22n 

3017 


DCA AXOUT 

/set "TExTP’*. 

2272 

3920 


OCA XCT 


2273 

5644 


JMP I XFINO 


2274 

;003 

UTRA, 


/UNPACK CHARACTER, r "GETC" 

2275 

4 330 


JMS CETl 


2276 

7710 

UTE, 

SPA CLA . 

/norm i extend 

2277 

1006 


TAD ci0e 

/300*337 « 340«376 

2300 

1357 


TAO M137 

/240»276 « 230»236 

9301 

1066 


TAO CHAR 



/rOCLl2.1!7^ 

Dl AL10 

V.)i'3 

11-JAN»71 

23106 PACE ls2f 

1376 


745J 


SNA 

• 

137 7 

5303 

5316 


JMP uTX 

/«tM EOUmO 

1378 

5304 

1075 


TAn P337 


1379 

5305 

3066 

UTQ, 

OCA CHAR 


130.0 

5306 

J 026 


TAO DEBGSw 


ll*!! 

53:17 

11011 


TAD OMPSW 


1382 

5310 

7650 


SNA CLA 

/PRINT ONLY BOTH ARE ZERO. 

13«3 

5311 

4551 


PR INTO 


1334 

5312 

5674 


JMP I UTRA 


1335 

5313 

4330 

EXTR. 

JMs CETl 


1366 

5314 

7040 


cma 


1337 

5315 

5276 


jMp UTE 


1388 

5316 

1026 

UTX, 

TAO DE8CSW 

/TEST FOR trace-enabled 

1339 

5317 

7640 


SZA CLA 


1390 ■ 

5320 

5326 


JMP ,*6 


1391 

5321 

1100 


TAD OMPsw 

/FLIP THE TRACE FLOP 

1392 

5352 

7650 


SNA CLA 


1393 

5323 

7001 


lAC 


1394 

5324 

5100 


DCA DMPSW 


1395 

5325 

5275 


JMP UTRA*1 

/get next character instead. 

1396 

2326 

1110 


Tad P2T7 

/tbace disabled b return 

1397 

5327 

5305 


JMP UTO 


1398 

5330 

1*000 

GETl. 

0 

/UNPACK 6-BITS 

1399 

5331 

2020 


iSf XCT 

/STaRTSsB 

1400 

5332 

5345 


JMP GET3 


1401 

5333 

1021 


Tad gtem 


1402 

5334 

/122 

GEND. 

AND P7r 


1403 

5335 

3066 


DCA CHAR 

. /SAVE 

1404 

5336 

1066 


tAD CHAR 


1405 

5337 

1103 


TAO M77 


1406 

5340 

7650 


SNA CLA 


1407 

5341 

5313 


JMP EXTR 

/EXTENDED 

1406 

5342 

1066 


TAO CHAR 


1409 

5343 

1356 


tAO M40 


1410 

5344 

5730 


JMP I GETl 


14ll 

5345 

1417 

GETS. 

TAO I AXOUT 

/(XiMEM) 

1412 

5346 

3021 


OCA GTEM 


14i3 

5347 

7040 


CMA 


14l4 

5350 

3020 


DCA XCT 


14l5 

5351 

1021 


Tad gtem 


14l6 

5352 

7112 


rtr cll 


14l7 

5353 

7012 


RTP 


14l8 

5354 

7012 


RTR 


14i9 

5355 

5334 


JMP CEND 


1420 

5356 

7740 

M40, 

«40 


1421 

5357 

7641 

M137, 

-137 


1422 

5360 

■1000 

xenoln; 

0 /terminate the BurrEREO line ■ "ENOLN" 

1423 

5361 

7000- 


CDP T 

/(X-mEM) 

1424 

5362 

1 425 


tad I LASTLN 

/SAVE OLD pointer 

1425 

5363 

3460 


DCA I BUER 


1426 

5364 

"1060 


TAD BUER 

/POINT TO NEW last line 

142? 

5365 

3425 


DCA I LASTLN 


1428 

5366 

1061 


TAO QADD 

/CHECK FOR EXTRA INFO 

1429 

5367 

7440 


SZa 


1430 

5370 

3410 


DCA I AXIN 



/rocLi? . 

m 

T IAL10 


23106 PAGE 

1431 

?371 

1?10 

TAD AXIN) 

/compute NE'W End of buffer 

1432 

?372 

’■■'01 

I' 0 


1433 

?t73 

3i60 

D';a bufr 

/RESET VARIABLE LIST (X-MEM; 

1434 

?374 

1 06 0 

tad startv 

1435 ■ 

?375 

3>j3l 

DCA LASTV 


1435 

7376 

5760 

JMP I XCMDLN 


1437 


2377 

TU1ST3». /literal TERvINATORS 

1435 

7377 

l25i 

tASK4 /'• 

B AUTC-ATIC quote MATCH 

1439 

7477 

.614 

PCi /C.R. 

1440 

2421 

1MP1X«V /DATA 

Control characters 

1441 

?4t'l 

6222 

rLiNTP*2 

/left arrow b kill 

1442 

7472 

757 

INPUT*! 

/RUaOUT B IGNORE 

1443 

7473 

757 

INPUT*1 

/LiF. B IGNORE 

1444 

7424 

6250 

EN0F1*5 

/ALT MODE » EXIT 

1445 

74C5 

•‘001 

FLTONEi 0001 /(NO 

relative REFERENCES) 

1446 

7476 

7000 

2000 


1447 

7477 

.,000 

FLTZER; 0000 


1448 

7417 

■ •000 

0000 


1449 

7411 

■ 000 

0000 


1450 

7412 

v-000 

0000 


1451 

7413 

7766 

m12. «12 /decimal conversion FACTOR FOR ^PRN 

1452 

7414 

■"•033 

133, 0 

/NOsINTERRUPT INPUT ROUTINE 

1453 

7415 

6031 

KSF 


1454 

7416 

5215 

JMP ,«! 


1455 

?4l7 

6336 

KR9 

/IGNORE parity BIT 

1456 

7420 

■'106 

AND P177 

1457 

7421 

7450 

SNA 


1458 

7422 

5215 

JMP ,»5 


1459 

7423 

1123 

TAO C200 


1460 

7424 

5614 

JMP I 133 


1461 

7425 

0000 

XPRNTi C? /PRINT A LINE NUMBER • "PRNTLN^ 

1462 

7426 

1067 

TAD LINENO 


1463 

7427 

4557 

RTl6 


1464 

7430 

0122 

AND P77 

/TWO DIGIT "PART" NUMBER 

. 1465 

7431 

4242 

JMS PRNT 

1466 

7432 

j 102 

tAn PER 

- 

1467 

2433 

4551 

PRINTC 

/period for separation 

1468 

7434 

1067 

TAD LINENO 

/TWO digit "STEP" NUMBER, 

1469 

7435 

4242 

^MS PRNT 

1470 

7436 

1356 

TAD M148 

/SAVE space in CHAR, 

1471 

7437 

3066 

OCA CHAR 

1472 

7447 

4551 

PRINTC 

/PRI-NT trailing space 

1473 

7441 

5625 

JMP 1 XPRNT 


1474 

1475 

7442 

n032 

'.'Bi'.Z 

VAL«Ti 

PRNt. 0 /PRINT two decimal DiOlTS 

1476 

7443 

'.•126 

AND P177 


1477 

7444 

3332 

DCA VAL 


1478 

7445 

1113 

tAD C260 


1479 

7446 

3333 

OCA T3 


1480 

7447 

5252 

JMP ,*3 


1481 

7450 

2333 

ISZ T3 


14fi2 

7451 

3332 

XYZ, DCA VAL 


1433 

7452 

1032 

TAO VAL 


1454 

7453 

]213 

TAD M!2 


1435 

7454 

7500 

SMA 



/FOClIE. 

1456 

14ft7 

1.468 

1469 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 . 

1500 
1531 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 




ilALl 


5 



7210 


10 33 


4551 

2Ail 

l‘"32 

7ii2 

1113 


4551 


5642 

74 65 

'•000 

7466 

7 4 50 

7467 

1066 

7473 

1116 

7471 

7450 

7472 

5276 

7473 

1077 

7474 

4463 

7475 

5665 

7476 

1077 

7477 

4463 

7573 

1076 

7571 

5274 

7532 

7000 

7533 

1110 

7534 

7341 

7535 

1066 

7536 

7450 

?5?7 

1352 

7510 

il01 

7511 

7450 

?5i2 

5755 

7513 

l353 

7514 

3071 

7515 

i07i 

7516 

"354 

7517 

1356 

7520 

7440 

7521 

1354 

7572 

7650 

7573 

5332 

7524 

1071 

7525 

.1122 

7576 

7440 

?«;77 

4335 

7530 

7300 

7531 

5702 

7532 

1122 

7533 

4335 

7534 

5324 

7535 

"000 

7536 

2062 

7537 

5357 

7540 

1 0 6 1 

7K41 

3410 

7542 

3061 

7543 

1313 


3 V 103 

OUT, 

OUTX. 

OUTCR* 

pacbuf; 


PAl, 

P ACX , 
ESCA. 

PCKl, 


IHjANpTI- 
JMP XY2-1 - 

CLA 

TAD T3 
PRiiJTC 
TAD VAL, 

TAD C260 
PRINTC 
JMP 1 PRnT 
0 

SNA 

TAD CHAR 
TAD MCR 
SNA 

JMP OUTCR 
tAO CCR 
JMS I OUTDEV 
JMP I OUT 
TAD CCR 
JMS I OUTDEV 

Tad clf 

JMP OUTX-1 

0 

TAD P277 
CIA 

tAO CHAR 
SNA 

tAO P40 
TAD Ml00 
SNA 

JMP 1 RUBIT- 
tAO P377 
DCA T2 
tAO T2 
AND C140 
tAD M140 

SZa 

TAO Cl40 
SNA CLA 
JMP ESCA 
tAO T2 
AND P77 
SZA 

JMS PCKl 
CDF P 

JMP I PACBUF 
TAO P77 
JMS PCKl 
JMP PAl 

Z 

ISH XCTIN 
JMP ROT 
TAD OADD 
DCA I AXIN 
OCA QADO 
TAD PDLXR 


23106 PACE 1 




s 

/OUTPUT A CHARACTER ■ "PRINTC** 
/USE (AC) OR (CHAR) 


/PACK A CHARACTER '• "PACKC* 

/CHANGE 277 TO 337 

/TEST FOR RU80UT, 

/SAVE INPUT ITEM 

/SO THAT question DOESN’T MAKE 

/CHAP LOOK LIKE A LEFT-ARROW 

/data word,’ 

/340-377 AND 200^257 
/240— 337 

/ignore 300 

/{x;hem> 


/•0 TO START 


/(X,.mEM) 

/clear PACKING WORD 
/CHECK FOR overflow 


/F0CLi2. 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 . 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 
. 1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 
1504 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 



rlALir 

''1 

11-JAIM^71 

23106 PAGE 



7141 


CMA IAC cll 



7';45 

j '^r5 


T* . 713 

■ /RESERVATIONS 

FOP PUSH-DOWN LIST 

“546 



TAH AX IN 




762? 


SNL CLA 




5735 


JMP I PCKl 



?551 

. 4566 


ERR0R2 

/full buffer 


?552 

i 040 

P4n, 

40 



7553 

.377 

7377. 

377 



2554 

14T 

C140, 

140 



7555 

3004 

RUSIT* 

RUBl 



7556 

7640 

M143, 

•140 



7557 

4557 

ROT, 

RTl6 /(EAE) 



2563 

3'561 


DCa QADD 



2561 

7040 


CMA 


. . . 

2562 

3062 


OCa XCTIN 



7563 

5735 


JMP I PCKl 





/part 

OF interface to 

PlOI to allow 




/GETTING or CHARS rPOM 

y 

TEXT 


2564 

4545 

COETXi 

GETC 



7565 

1066 


tAD char 



7566 

6213 


6213 /GIF COf 10/**»4#**# 


7567 

5770 


JMP I ,*1 



2570 

1137 


CGETRET 



7571 

4566 

ERRFit. 

; ERR0R4 



7572 

4540 

LM* 

PUSHJ 



7573 

1612 


EVAL-l 



7574 

4453 


jMs I integer 

/# 


7575 

6212 


6212 

/» 


7576 

5777 


JMP I ,•! 

/# 


7577 

1402 


lmake 

/# 




/USED 

BY 8k 




2600 

• 260? 






/interrupt processor, 



7600 

!*000 

SAVaCi 

0 /contents Or AC 


7601 

0000 

SAVlKi 

0 /contents of link 


7602 

7575 

mBREAK 

; »203 /CONTROl-C 


7603 

3200 

INTRPT 

; oca savac 

/SAVE WORKING 

data 

7604 

7010 


RAR 



7605 

3201 


DCA SAVLK 



7606 

6.141 


TSF 

/GIVE OUTPUT priority 

7607 

5225 


JMP KINT 



7610 

6042 


ter 



7611 

3016 


DCA TELSW 

/turn off the 

IN-PROGRESS flag, 

7612 

1665 


tao I OPTRI 



7613 

7450 


SNA 



7614 

5225 


JMP KINT 

/done 


7615 

6044 


TPC 

/typf next. 


7616 

3016 


DCA TELS4 

/clear AC AND 

TURN ON THE FLAG, 

7617 

3665 


OCA I OPTRI 

/zero out the 

data area 

7620 

1265 


TAi) OPTRI 



7671 

7001 


IAC 



7672 

107 


AND P17 



7623 

i263 


TAD OPTR0 





V L. ^ « 

1596 

%' 

s.' * t X ' » 

3265 

V L' O 

j. 1 

OCA OPTSI 

toian HAUL 

1597 

7675 

6031 

KINT. 

KSr 

/CME^K FcR KEYBOARD FIRST 

1598 

7676 

5246 


JMP EXIT 


1599 

7677 

6-5 36 


KR9 

/rea'’ buffep and Clear flag to fetch next 

16:^0 

7637 

. lv’6 


AND P177 

/ignore blank and L-T AMO PARITY BIT, 

16?1 

?6?1 

7450 


SNA 


16'^2 

?632 

5246 


JMP EXIT 


16^3 

26:^3 

1123 


TAO C208 


1604 

P6:^4 

3262 


OCA SIN 


1605 

7635 

1262 


' Tad sin 


1606 

7636 

1202 


tAO MBPEAK 

/manual stop? 

1607 

7637 

7650 


SNA CUA 


1608 

7640 

5340 


JMP RECOVR 


1609 

7641 

1034 


TAO INBUr 

/any space? 

1610 

7642 

7640 


SZA CLA 


1611 

7643 

4566 


ERROR2 

/will wait for output buffer 

1612 

7644 

1262 


TAD SIN 


1613 

7645 

3334 


OCA INBUF 

/SAVE INPUT 

16l4 

7646 

6131 

exit; 

CiSK 


16l5 

7647 

5253 


JMP NOCLK 


1616 

7650 

6135 


CLSA 


16l7 

7651 

7200 


CUA 


1618 

7652 

3261 


OCA CLKFUe 



161« / 


1620 



/KW12 

CLOCK INTERRUPT 

Routine 

1621 



/ 



1622 

7653 

6244 

NOCLKi 

RMF 


1623 

7654 

1201 


TAP SAVLK 


1624 

7655 

7104 


raL cut 


1625 

7656 

1200 


TAD SAVAC 


1626 

7657 

6001 


ION 


1627 

7660 

5400 

EXiTJj 

JMP 1 0 

/MOOIPICD FOR POP-5 

1628 

?661 

-.'000 

clkflG 

; 0 


1629 

7662 

•,^000 

SIN, 

0 


1630 

7663 

3120 

OPTR0# 

lOBUF /OUTPUT pointers 

1631 

7664 

3120 • 

OPTROi 

108UF /VARS 


1632 

7665 

3120 

OPTRi, 

lOBUF 


1633 

7666 

0000 

XI33. 

0 

/VIA (INDEV) 

1634 

7667 

1034 


tAO INBUF 

/any input? 

1635 

7670 

7450 


SNA 


1636 

7671 

4574 


JMS I PWAIT 


1637 

7672 

3276 


OCA XOUTL 


1638 

7673 

3034 


OCA INBUF 

/CLEAR input Buffer 

1639 

7674 

1276 


tAO XOUTL 


1640 

7675 

5666 


JMP I Xl33 


1641 

7676 

' 300 

XOUTL» 

0 

/VIA (OUTOCV) 

1642 

7677 

3266 


OCA XI33 

/SAVE CURRENT CHARACTER, 

1643 

7730 

6 001 


ION 

/BE SURE interrupt IS ON, 

1644 

7701 

1664 


TAO I OPTRO 

/any room? 

1645 

77'?'2 

7643 


SZa CLA 

/A CmARACTER is N0N*ZER0 

1646 

7703 

4574 


JMS I PWAIT 


1647 

?7:m 

6002 


lOF 


1648 

7705 

1016 


TAn TELSW 

/IN PROGRESS? 

1649 

7706 

7640 


SZa CUA 


1650 

7707 

5314 


JMP ,*5 





( 


/FOCLlt . 


DIAL10 

1651 

?710 

1266 

1652 

P7U 

6.346 

1653 

P7l2 

3316 

165A 

?7l3 

5323 

1655 

P71A 

1266 

1656 

P715 

3664 

1657 

?716 

.1264 

1658 

7717 

7001 

1659 

7720 

:'107 

1660 

7721 

1263 

1661 

7722 

3264 

1662 

2723 

6001 

1663 

7724 

5676 

166< 



1665 

7725 

3326 

1666 

7726 

1-000 

1667 

7727 

7240 

1668 

2730 

l326 

1669 

7731 

3067 

1670 

7732 

6001 

1671 

7733 

1016 

1672 

7734 

7640 

1673 

7735 

5333 

1674 

7T36 

6002 

1675 

7737 

5342 

1676 

7740 

1123 

1677 

7741 

3067 

1678 



1679 

2742 

1105 

1680 

7743 

3057 

1681 

7744 

7040 

1682 

2745 

1263 

1683 

2746 

3010 

1684 

7747 

2016 

1685 

7750 

7000 

1686 

2751 

3410 

1687 

2752 

2057 

1688 

2753 

5351 

1689 

2754 

3034 

1690 

2755 

1263 

I 69 I 

2756 

3265 

1692 

7757 

1263 

1693 

7760 

3264 

1694 

7761 

7040 

1695 

7762 

6046 

1696 

7763 

1101 

1697 

7764 

4551 

1698 

7765 

4553 

1699 

7756 

0022 

1700 

7767 

i422 

17;‘l 

7770 

7455.1 

17:12 

77n 

5377 

1703 

7772 

3067 

175:4 

7773 

3 101 

1705 

7774 

4551 


V?33 ll-JAV-^Tl 
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TA' 

X133 

TL? 


:cA 

TElS* 

JMP 

.*1Z 

TAn 

X133 

DCA 

I OPTRO 

TAD 

OPTRO 


/NO 

/TVpE character. 

/SET JN.-PROGRESS FLAG, 

/return 
/SEnO data 

/SET pointers 


iac 

ANf> PIT 
TAD OPTRS) 
OCA OPTRO 


ION 

JMP I XCUTL 

/ERROR RECOVERY RROCEEDuRE 


errors; 
ERR2. 


RECOVR; 


OCA 

0 

CLA 

TAD 

DCa 

ION 

TAD 

sza 

JMP 

I or 

JMP 

tAO 

DCA 


.♦1 

CMA • 
ERR2 
LINENO 

TELSW 

CUA 

• •2 

.*3 

C280 

UlNENO 


/ERROR called FROM A TASlE 

/limit exceeded 

/compute calling address (ALSO "SPACE”) 
/ANO USE IT AS ERROR NUMBER. 

/SAVE ERROR CODE, 

/ (jmp.aa) p for debugging 

/WAIT FOR OUTPUT TO FINISH 

/DISABLE INTERRUPT FOR INITIALIZATIONS 


/SAVE ERROR NUMBER 


Tad M20 
oca cntr 

CMA 

TAO OPTRO 
OCA AXIN 
ISZ TELSW 
CDF 

OCA I AxIN 
IS3 CNTR 
JMP ,»2 
DCA INBUF 
TAO OPTRi? 
DCA OPTRI 
TAD OPTR0 
DCA OPTRO 
RECOVX; CMA 
TLS 

TAD P7700 
PRINTC 
prntln 
ISZ PC 
TAD I PC 
SNA 

JMP ,*6 ■ 
DCA LINENO 
TAD P7703 
PRINTC 


/SETUP INIT COUNT 


/INIT I/O buffers, 

/* 

/{Xi^^EM reset) 


/INIT KEYiSUFR, 
/INiT TTY pointers. 


/prepare a stop bit for TTY 

*/ANO RAISE flag, <N0P> • FOR DEBUGGING 

/MAt<E A "?**, 

/ANO turn on The interrupt 
/print ERROR number AND# 

/unless iT is ZERO', «X»meM) 


/PRINT ATSIGN 



/FOCLie.J 


7lALl!3 

V003 

ll-JAN-71 

23136 PAGE^^l 

17:’6 t 

^75 

4551 


PRIMTC 

/pRp'T SPACE AND 

I7r7 

7776 

4553 


PRnTLN 

/pPp'T lime 0 ^ ERROR, 

i7,'8 

7777 

'.077 


tAP OCR 


17 .'9 

^ T 't ;n 

4551 


PRiMTC 


1710 

37 .'1 

1126 


TAP PTCM 

/RESET "READC" 

17ll 

3,’‘'2 

3152 


ncA poiv 

/IF AV ERROR OCCURS. 

17l2 

3 7 33 

5177 


JHP START 

/interrupt will be re"Enableo soon'; 

17i3 



/CHRaCTCR removal routke 

171“ 

3.7 7 4 

! 062 

RUB!,, 

TAP XCTIN 

/RUBDUT one letter 

1715 

3 T 7 5 

764;!! 


sza cla 


1716 

32?6 

5214 


JMP ,*6 


1717 

3707 

1010 


TAD AXlN 


17l8 

3 710 

7041 


CIA 


17l9 

3711 

1027 


TAD PACKST 


1720 

3012 

7700 


SMA CLA 

. /test null line 

1721 

3013 

5641 


JMP I RUB5 


1722 

3?l4 

1251 


TAD SPLAT 

/FOR- A RUBOUT ACKNOWLEDGEMENT 

1723 

3015 

4551 


PRfNTC 


1724 

3016 

1010 


tad AXIN 


1725 

3017 

3071 ■ 


DCA T2 


1726 

3020 

7300 


CDF T 

/IX.mEM) 

1727 

3021 

2062 


ISZ XCTIN 

/TEST half 

1728 

3022 

5242 


JMP RUB2 


1729 

3023 

1471 


tad I T2 

/"ADD" IS FULL. 

1730 

3024 

:122 


AND P77 


1731 

3025 

1103 


TAD M77 


1732 

3026 

7640 


sza cla 

/TEST FOB extend 

1733 

3027 

5237 


JMP RUB4 


1734 

3030 

7040 

RU63. 

CMA 

/set switch 

1735 

3031 

3062 


DCA XCTIN 


1736 

3032 

7040 


CMA 

/BACKUP pointer 

1737 

3033 

1010 


tAD AXIN 


1738 

3034 

3010 


DCA AXIN 


1739 

3035 

1471 


TAD I T2 

/RESET ADO 

1740 

3036 

7 131 


AND P7700 


1741 

3037 

3061 

RUB4i 

OCA QAOD 


1742 

3040 

5641 


JMP 1 RU95 


1743 

3041 

2530 

RUBS, 

PACX 


1744 

3042 

1471 

RUe2. 

TAD I T2 

/check For extended 

1745 

3043 

■-131 


AND P7700 


1746 

3044 

1036 


TAD C100 


1747 

3045 

7640 


SZA CLA 


1748 

3046 

5230 


JMP RUB3 


1749 

3047 

3471 


DCA I T2 

/SAVE CORRECTION 

1750 

3 050 

5231 


JMP RUB3*1 


1751 

3051 

. 334 

SPLAT» 

334 


1752 



/symbol 

tABLE TYPEOUT 

Routine 

1753 

3052 

1060 

TOUmPi 

.TAD STARTV 

/INIT POINTER FOR SYMBOL OUMP.U-irMEM) 

1754 

30S3 

3330 


DCA PTl 


1755 - 

3054 

1031 


TAD LASTV 

/Test for end of list 

1756 

3055 

7341 


CIA 


1757 

3056 

1033 


TAD PTl 


1758 

3057 

7650 


SNA CLA 


1759 

3060 

5541 


POPJ 


1760 

3061 

1430 


TAD I PTl 

/get the variable 


'’OCL 12 . 37 ® 

DlALlP 

v;’y3 

li:jAN*71 

1761 

3-,.‘6 2 

3316 


OCA 0P*1 

1762 

3063 

1315 


TAD OP 

1763 

30 64 

3017 


OCA AXOUT 

1764 

3 .• 6 5 

3020 


OCA XCT 

1765 • 

3 0 6 6 

4545 


GETC 

1766 

3’67 

4551 


prIntc 

1767 

3070 

4545 


GETC 

1768 

3071 

4551 


PRiNTC 

1769 

3072 

4545 


CEtC 

1770 

3073 

4551 


PRiNTC 

1771 

3074 

?O30 


IS2 PTl 

1772 

3075 

l430 


tad I PTl 

1773 

3076 

4714 


JMS I PRNT2 

1774 

3077 

4545 


GETC 

1775 

3100 

4551 


PRiNTC 

1776 

3101 

2030 


ISZ PTl 

1777 

3102 

4407 


PINT 

1778 

3103 

.;430 


FGET I PTl 

1779 

3104 

•000 


FXiT 

1780 

3105 

4530 


JMS I FOUTPUT 

1781 

3106 

1077 


TAD CCR 

1782 

3107 

4551 


PRINTC 

1783 

3110 

1070 


TAn GINC 

1784 

3111 

nil 


TAD M2 

1785 

3ii2 

1030 


TAD PTl 

1786 

3113 

5253 


JMP TDUMP*1 

1787 

3114 

2442 

PRNT2» 

prnt 

1788 

3il5 

3115 

OP, 

f 

1789 

3116 

0000 


0000 

1790 

3ii7 

5051 

/OUTPUT 

5051 

1791 



CHARACTER BUFI 


1792 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 
1801 
1602 

1803 

1804 

1805 

1806 
1837 
1808 

1809 

1810 
1811 

1812 

1813 

1814 

1815 
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/{Oca I {4)«rO«(X«MEM) J ISAVE NAME 
/SETMp Unpack POINTERS 


/reap and print ''XX(" 


/PRINT SUBSCRIPT To 99 

/print 


/PICK UP value 


/print VALUE 


0P» , / (X-MEM) 

0000 / (X»HEM> 

. 5051 /(These go in 10005 tor x»mem> 

/output character BUPFEr (AonRESS IS A MULtlPLE OF 20 ) 
IOBur»S120 

COMEIN«IOBUF*20 /command • INPUT BUFFER 

COMEOUt»COMEIN*A6 

•comeOut 


3236 


FRST, 

0 

/TEXT 

Pointer 

3207 

i’000 


3000 

/DUMMY 

LINE NO, 

3210 

^-,340 


0340 



3211 

;'6i7 


0617 

/FO 


3212 

'•331 


0301 

/CA 


3213 

1455 


1455 



3214 

6162 

FRSTX, 

6162 



3215 

7715 


7715 

/DUMMY 

CiR, 


3216 

3600 

3600 ?741 

3601 l20a 

3602 3176 

.3603 7000 

3604 4575 

3605 7300 


/TO SAVE text iSAVE C(BuFR), CiLAStV)# AnO C( FRST TO C(8U|irR)> 
/WITH 0DT-JR46, THE TAPES MAY BE TOGETHER WITH 

/the Symbolic Dump last t Focal ♦ float ♦ dialog , 

/LOaoInG the last section May BE CONSIDERED OPTIONAL# 


BUFbeG 

• 3601’ 
Oil 

begin* 


. /TEXT BUFFER STARTS HERE. 

hecovr*i/starting address 

TAP 01 /INITIAlIEE any eiFAviLY COMPUTER, 

DCa STARTei 

NOP/(IOPRESET) /*•**•**• 

JMS I PCLEAR /•**••••• INITIALIZE POINT DISPLAY 
CLA CLL 





4 A U 1 » 

V v; o 0 


PAGt 

1816 


3414 


OCA I FlTXR 

• 

I8l7 

t A .* 7 

'^57 


IS? CNTR/lNITlALlEEp BV uOAO. 

18l8 

? 6 1 r 

5 2 .’1 6 


JMP ,t>2 

/clf:ar 

INOUT surrER 

1819 

1 4 1 ; 

7 2.:’^ 

T12, 

CLA 



1620 


‘213 


6213 

/cir cor 

1821 

*^613 

3667 


OCA I 

C7775 


1822 

?6 1 ^ 

1262 


tAD 

Q5772 


1623 

3615 

3670 


OCA I 

r.7776 


1824 

3616 

l263 


TAO 

G5773 


1825 

3617 

3671 


DCA I 

G7777 


1826 

?62r7 

6231 


6201 

/cor 0 


1327 


4666 


JMS I 

G7774 


1823 

3622 

3655 


G0LOK 



1829 , 

!^623 

6212 


6212 

/cir 10 


1630 : 

:«624 

4664 


jMS I 

g7200 


1831 

3625 

6211 


6211 

/cor le 


1832 

5626 

2430 


2400 



1833 

3627 

6211 


6211 

/cor 10 


1834 

3632 

7400 


7400 



1835 

5631 

:'4?i0 


400 



1836 , 

3632 

6212 


6212 

/cir 10 

/♦*♦#♦«♦« 

1837 

3633 

4667 


JMS I 

G7775 


1838 

3654 

3651 


RItEOU 



1639 

3635 

6132 


CULR 



1840 

3636 

6134 


CLEN 



1641 

3637 

7243 


CLA CHA 



1842 

3640 

6133 


CLA8 



1843 

3641 

1261 


tAO 

C101 


1844 

3642 

6132 


CLLR 



1845 

3643 

6135 


CLSA 



1846 

3644 

t200 


CLA 



184 7 

3645 

6046 


tLS 



1848 

3646 

6001 


ION 



1849 

3647 

5650 


JMP I 

.*1 


1850 

3650 

2216 


ERt 



1851 

3651 

,•'110 

riteou; 

110 



1852 

3652 

►'030 


30 



1853 

3653 

^’076 


76 



1854 

3654 

■>'002 


2 



1855 

3655 

,'ICO 

GBlOKi 

100 



1856 

3656 

.:025 


25 



1857 

3657 

,'023 


23 



1858 

3660 

r'03l 


1 



1859 

3661 

■- 131 

C101, 

101 



1860 

3662 

5772 

C5772f 

5772 



1661 

3663 

5773 

G5773» 

5773 



1662 

3664 

7200 

C72n0» 

7200 



1863 

3665 

7773 

C7773I 

7773 



1864 

3666 

7774 

C7774# 

7774 



1865 

3667 

7775 

C7775» 

7775 



1866 

3670 

7776 

G7776» 

7776 



1867 

36n 

7777 

G7777» 

7777 



1868 


4620 

♦4600*20 



1869 

■4620 

1045 

PEXP, 

getsgn 


/TAKE ABSOLUTE VALUE 

1870 

4621 

7710 


SPA CLA 






/P0Cul2.i” 

:I4L10 

1571 

<622 

<724 

1872 

<6*3 

3033 

1873 

<67< 

<407 

1874 

<6?5 

<313 

1875 

<6? 6 

667 = 

1876 

<627 

3 0 .1 

1877 

<630 

<453 

1878 

<631 

3325 

1879 

<632 

4<07 

1680 

<633 

7300 

1831 

<634 

6676 

1882 

<635 

. 675 

1883 

<636 

2676 

1884 

<637 

6675 

1885 

<640 

<675 

1886 

4641 

6676 

1887 

<642 

l3l0 

1688 

<643 

6326 

1689 

<644 

305 

1890 

46<5 

3326 

1891 

4646 

2675 

1692 

<647 

1277 

1893 

4650 

6326 

1894 

4651 

■302 

1895 

4652 

<676 

1896 

4653 

1326 

1897 

4654 

6326 

1898 

4655 

3675 

1899 

4656 

3326 

1900 

4657 

<321 

1901 

4660 

1316 

1902 

4661 

0 000 

1903 

4662 

l325 

1904 

4663 

1044 

1905 

4664 

3044 

1906 

4665 

2033 

1907 

4666 

5536 

1938 

4667 

<407 

1909 

4670 

6675 

1910 

4671 

;'3i6 

1911 

4672 

3675 

19i2 

4673 

V0OO 

19i3 

4574 

5536 

1914 



1915 

4675 

5321 

19l6 

4676 

5325 

19l7 

4677 

■30 4 

19l8 

4700 

2372 

19l9 

4701 

1 4 2 

1920 

4702 

7774 

1921 

4703 

2157 

1922 

4704 

5157 

1923 

4705 

012 

1924 

4706 

= 454 

1925 

4707 

343 
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JMS ! NSGP 

rCA T3 /C(SICS'>»-1 if 1 X2<i’ 
r iNiT 

fMUL LG2E 
FP'JT I X2 
FEXT 

JMP 1 IMEGEf? /take IMTEGEP PAPT 
DCa FLAG2 /SAvr UOw ORnER DATA 

FIM 


FNOR 

. FPUT I XS02 
FGET I X2 
FSU9 I XS02 
FPuT I X2 
FMUL I X2 
FPuT I XS(32 
FAOO OF 
FPuT TEMP 
FGET CF 
FOIV TEMP 
FSU9 I X2 
EAOD AF 
FPuT TEMP 
FGET BF 
FMUL I XSQ2 
FAOO TEMP 
FPuT TEMP 
FGET I X2 
FOiV TEMP 
FMUL TWO 
FAOO one 
FEXT 

TAD FLAC2 
TAD flag 
OCA FLAG 
IS2 T3 
RETURN 
FlMT 

FPUT I X2 

fget one 

FDiV I X2 

FEXT 

RETURN 

/constants for FEXP 

X2, X 

XS02, XSOR 

AFi 0004 

2372 
1402 

BF, 7774 

2147 
5157 

CF, , 0012 

5454 
0343 




/rOCLl2.3 

1^ 

■'ULlC 

V003 

llijAN-71' 23106 PAGE 

1926 ’ 


• il37 

OF, 

0007 

19?7 

4711 

2566 


2566 

1928 

4712 

5341 


5341 

1929 

471 3 

‘^Cl 

lC2E. 

0001 ■ 

1933 

4714 

2705 


2705 

1931 

4715 

2435 


2435 

1932 

4716 

. 001 

ONE. 

0001 

1933 

4717 

2000 


2000 

1934 

4720 

•000 


» 0000 

1935 

4721 

002 

TWO, 

0 002 

1936 

4722 

2D00 


2000 

1937 

4723 

:‘000 


0000 

1938 

4724 

5163 

NEGP, 

FNEC 

1939 • 

4725 

•000 

rLAG2» 

0 

1940 

4726 

•,•-000 

TEMP, 

0 

1941 

4727 

•'000 


0 

1942 

4730 

i''000 


0 

1943 

1944 

4731 

.;000 

/MAIN 

0 

algorithm for arctangent 

1945 

4732 

4407 

A9CAL6 

; fint 

1946 

4733 

3675 


FGCT I X2 

1947 

4734 

4675 


FMUL I X2' 

1948 

4735 

6676 


FPUT I XS02 

1949 

4736 

4374 


FMul BET2 

1950 

4737 

1371 


FADD BETl 

1951 

4740 

4676 


FMUL I XSQ2 

1952 

4741 

1366 


FADD BET2 

1953 

4742 

6326 


FPUT temp 

1954 

4743 

3363 


FGCT.ALF2 

1955 

4744 

4676 


FMUL I XS02 

1956 

4745 

1360 


FAbO ALFI 

1957 

4746 

4676 


FMUL I xsaa 

1958 

4^47 

1355 


FAOO ALFZ 

1959 

4750 

4675 


FMUL I X2 

I960 

4751 

3326 


Foiv temp 

1961 

4752 

ii300 


TEXT 

1962 

4753 

5754 


JMP I ,*1 

1963 

1964 

4t54 

5024 

ARCBTN 

/CONSTANtS ■ floating ARC TanGENT 

1965 

4?55 

f'000 

ALF2. 

0000 

1966 

4756 

2437 


2437 

1967 

4757 

1643 


1643 

1968 

4^60 

7777 

alFi, 

7777 

1969 

4761 

3304 


3304 

1970 

4762 

4434 


4434 

1971 

4763 

7773 

AlF2, 

7773 

1972 

4764 

3306 

3306 

1973 

4765 

9454 


.9454 

^ '* 4 

4 ’ 




1975 

4 76? 

2437 


2437 

1976 

4770 

1646 


1646 

1977 

47n 

•. 000 

BETl. 

0000 

1978 

4772 

2427 


2427 

1979 

4773 

2323 


2323 

1980 

4774 

7775 

SET2. 

7775 


• w 


/F0CLi2. 

37 
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1901 

4775 

3427 


3497 


1982 

4776 

7052 


7/52 


1933 



/Float j' 

& bojNT arc TA' 

CENT 

198^ 


5’i'30 

*5''00 



1935 


1045 

A T \ , 

CEtSGN 

/take absolute value 

1966 


7710 


SPA CLA 


1967 

50 8 2 

4363 


JMS fneg 


19p8 

5003 

3033 


OCi T3 


1989 

5004 

4407 


FINT 


1990 

5005 

6635 


FPUT 1 XI 


1991 

5006 

2637 


FSUB I CONI 


1992 

5007 

•000 


FEXT 


1993 

5010 

1045 


CETSGN _ 


199^ 

5011 

7710 


SPA CLA 


1995 

5012 

5221 


JMP GO 

/less than one 

1996 

5013 

4407 


FlNT 


1997 

5014 

i'637 


FCET I CONI 


1998 

5015 

3635 


FDIV 1 XI 


1999 

5016 

6635 


FP'JT I XI 


2000 

5017 

•>000 


FEXT 


2001 

5020 

7240 


CLA CMA 


2002 

5021 

3362 

GOi 

DCA FLAGl 

/SIGN ELAG of result 

2003 

5022 

5623 


JMP I ,*1 

/call algorithm 

2004 

5023 

4732 


arcalg 


2005 

5024 

2362 

arcrtn; 

ISZ FLAGl 

/return here 

2006 

5025 

5634 


JMP I EXIT! 


2007 

5026 

4407 


FiNT 


2006 

5027 

6635 


FPuT I XI 


2009 

5030 

1636 


FCET I PI2 


2010 

5031 

2635 


FSUB 1 XI 


2011 

5032 

0000 


FEXT 


2012 

5033 

5634 


JMP I ,*1 


20l3 

5034 

5301 

EXIT1» 

EXiT2 


2014 



/COnSTamTS for arctangent 

2015 

5035 

5321 

Xli 

X 


2016 

5036 

5315 

PI2. 

PIOT 


20l7 

5037 

4716 

CONI, 

ONE 


2018 

5040 

1045 

FLOG, 

GETSGN /FLOATING LOGARITHM 

20l9 

5041 

7450 


SNA 


2020 

5042 

4566 


ERRORS 

/2ERO ARCUEMENT FOR 

2021 

5043 

7710 


SPA CLA 


2022 

5044 

4566 


ERR0R4 

/» 

2023 

5045 

4407 


FINT 


2024 

5046 

6756 


FPUT I TEM 

■ 

2025 

5047 

2637 


FSuB I CONI 


2026 

5050 

•.’000 


FEXT 


2027 

5051 

1045 


GETSGN 


2028 

5052 

7450 


SNA 


2029 

50 5 3 

5536 


return 


2032 

5054 

7700 


SMA CLA 


2031 

5055 

5264 


JMP startl 


2032 

5056 

4407 


FINT 


2033 

5057 

637 


FGET ,I CONI 


2034 

5060 

3 756 


FOiV I TEM 


2035 

5061 

6756 


FPuT I TEM 



/r|0CLl2.^7^ r.lALlf^ VTJ'S 11..JAIV-71 


2?36 


. 

2337 

5063 

7241? 

2338 

5’64 

3033 

2039 

•'065 

I O'’ 6 

2340 

5066 

3 '04 4 

2?!4l 

5;' 6 7 

7.MP 

2042 

5^.70 

l75t 

2C43 

5071 

3445 

2044 

53 72 

3046 

2045 

5373 

3047 

2046 

5074 

7 3Ci 

2047 

5075 

3756 

2048 

53n 

4407 

2049 , 

, 5077 

4357 

2050 

5100 

6636 

2051 

5101 

•756 

2052 

5102 

2637 

2053 

5103 

6756 

2354 

5104 

4353 

2355 

5105 

l35i 

2056 , 

5106 

475i 

2057 

5107 

1345 

2058 

5110 

4756 

2059 

5111 

1342 

2060 

5il2 

4756 

2061 

5113 

1337 

2062 

5114 

4756 

2063 

5115 

1334 

2064 

5il6 

4756 

2065 

5117 

1331 

2066 

5120 

4756 

2067 

5121 

1326 

2068 

5i22 

4756 

2069 

5123 

1635 

2070 

5i24 

0003 

2071 

5125 

5634 

2072 

5126 

0000 

2073 

5127 

3777 

2074 

5130 

7742 

2075 

5i31 

7777 

2076 

5132 

4000 

2077 

5133 

4100 

2073 

5134 

7777 

2079 

5135 

2517 

2060 

5136 

1-.310 

2081 

5i37 

7776 

2082 

5140 

4113 

2083 

5141 

7211 

2084 



2085 

5i42 

7776 

2066 

5143 

?535 

2087 

5144 

3301 

2088 

5145 

7775 


* ^ 4 4 



FExf 
CLA CMA 

STAQTL, PCa T3 
TAn P13 
DC4 flag 
CM A 

TAD I TEM 

DCa flag*! 

, OCA FLAG*2 
OCA FLAC*3 
lAC 

OCA 1 TEm 
riMT 

FHuL L0C2 
FPUT 1 XI 
FCCT I TEM 
FSUB I CONI 
FPuT I TEM 
FMUL UOGe 
FADO L0G7 
FMUL I TEM 
FADO L0G6 
FMUL I TEM 
FAOO LOGS 
FMUL I TEM 
FAOO L4 
FMUL I TEM 
FAOO L3 
FMUL I TEM 
FADO L2 
FMUL I TEM 
FADO LI 
FMUL I TEM 
FADO I XI 
FEXT 

JMP I EXITI 
Lli 0000 

3777 
7742 

L2i 7777 

4000 
4100 

L3i 7777 

2517 
0310 

L4i 7776 

4113 
7211 

/logarithm constants 

LOGS. 7776 

2535 
3301 

L0C6. 7775 

«• / 4i 

■ ! 4 - 

# / 4 
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/rocLis.: 

2091 

2092 

2093 

2094 • 

2095 

2096 

2097 

2098 

2099 

2100 
2101 
2102 
2liS3 

2104 

2105 

2106 

2107 

2108 

2109 

2110 
2111 
2112 

mi 

2115 

2116 

2117 

2118 

2119 

2120 
2121 
2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 




■ilALl^ 

V ^ 3 

ii;jAN 

■71 

23106 PACE 

5152 

7774 

L0G7, 

777 *. 



5151 

2236 


27-6 



5152 

4 3.14 


4 J04 



5l53 

7771 

L 0 G 8 i 

7771 



5154 

4544 


4544 



5155 

1735 


1735 



5156 

4726 

TEH, 

TEmP 



5157 


L0G2, 




51623 

2613 


2613 



5161 

4414 


4414 



5162 

1000 

flagi» 

Z 



5i63 

:'.C00 

FNEG. 

rn 



5164 

4451 


JMS I 

MINSKI 


5165 

7240 


CLA CMA 


5166 

5763 


JMP I 

fneg 


5167 

6213 

LO, 

6213 

/CIF 


5170 

5126 


JMP 

XLO 


5171 

6213 

LC 1 

6213 

/CIF 

COF 

5172 

5130 


JMP 

XLC 


5i73 

6213 

LLi - 

6213 

/CIF 


5174 

5132 


JMP 

XLL 



/rLOATlMG POINT SINE AMD COSINE 


5177 

5177 

4407 

5200 

6321 

5201 

;'3l5 

5202 

2321 

5203 

J000 

5204 

1045 

5205 

7740 

5206 

5214 

5207 

1045 

5210 

7700 

5211 

5536 

5212 

4451 

5213 

7040 

5214 

3033 

5215 

4 4?, 7 

5216 

3305 

5217 

6325 

5220 

;'000 

5221 

4453 

5222 

4407 

5223 

7000 

5224 

6321 

5225 

^'325 

5226 

2321 

5227 

4 305 

5230 

6321 

5231 

,2311 

5232 

•000 


• 5177 

FCOS. PINT 

FPUT X 
FGET Plot 
rsuB X 
FEXT 

FSIN, GEfSGN 

SMA SHA CLA 
JMP MOO 
GEfSGN 
SMa CUA 
RETURN 

JMS I MINSKI 
CMA 

mod, DCA T3 

/REDUCE X MODULO 2 PI 
FINT 

FOjV TWOPI 
FPuT XSOP 
TEXT 

JMS I INTEGER 
TINT 
FNoR 
FPUT X 

fget XSOR 
FSU8 X 
FMUL TWOPI 
FPuT X 
FSUB PI 
TEXT 


/C0S(X)«SIN{Pl/2iX> 


/YES SIN{0)«0 
/NO|SIN(;X)*iSlN(X) 


/X<PI? 


/rOCLl2.3. 


CIAL10 


li;jAN-7l- 

23106 PACE 

2146 * 

W3 3 

'1345 


GEtSGN 

V 

2147 

5?34 

7710 


SPA CLA 


2148 

5?35 

5244 


JMP PCHECK 

/YES 

2149 

5236 

4407 


riM 

/NO, SIN{X«PI }"-SlN(X) 

2150 

5237 

6321 


rPuT X 


2151 

5243 

. 0B0 


TEXT 


2152 

5241 

1033 


tad T3 

/INVERT THE SIGN 

2153 

5242 

7340 


CHA 


2154 

5243 

3033 


DCA T3 


2155 

5244 

4407 

PCHCCK, 

FI NT 

/X<Pl/27 

2156 

5245 

321 


FGET X 


2157 

5246 

2315 


FSUB PIOT 


2158 

5247 

•300 


FExT 


2159 

5250 

1045 


GEtSGN 


2160 

5251 

7710 


SPA CLA 


2161 

5252 

5260 


JMP PALG 

/YES 

2162 

5253 

4437 


FINT 

/NO 

2163 

5254 

>';3ii 


FGET PI 

/SlN(X>?SIN<Pl-X> 

2164 

5255 

2321 


FSUB X 


2165 

5256 

6321 


FPUT X 


2166 

5257 

0000 


FEXT 


2167 

5260 

4407 

PALGi 

PINT 


2168 

5261 

e32l 


FCET X 


2169 

5262 

3315 


FDiV PIOT 


2170 

5263 

6321 


FPUT X 


2171 

5264 

4321 


FMUL X 


2172 

5265 

6325 


FPUT XSOR 


2173 

5266 

;i:33l 


FCET C9 


2174 

5267 

4325 


EMUL XSOR 


2175 

5270 

l335 


FADO C7 


2176 

5271 

4325 


FMUL XSOR 


2177 

5272 

1341 


FADD C5 


2178 

5273 

4325 


FMUL XSOR 


2179 

5274 

1345 


FADD CS 


2180 

5275 

4325 


FMUL XSOR 


2181 

5276 

1315 


FADD PIOT 


2182 

5277 

4321 


FMUL X 


2183 

5300 

11030 


FEXT 


2184 

5301 

2033 

EX1T2» 

IS2 T3 


2185 

5302 

5536 


RETURN 


2186 

5303 

4451 


JMS I MINSKI 


2187 

5304 

5536 


RETURN 


2188 



/COMSTavtS and pointers 


2189 

5305 

'.•003 

TWOPIi 

0003 


2190 

5306 

3110 


3110 


2191 

5307 

3756 


3756 /{8755> 

» For 4.W0RD 

2192 

5310 

3235 


3235 


2193 

5311 

t-002 

PI# 

0002 


2194 

5312 

3110 


3110 


2195 ■ 

5313 

3756 


3756 


2196 

5314 

3235 


3235 


2197 

5315 

■.;001 

PIOT, 

0001 

/USED BY SINE AND COSI 

2198 

5316 

3110 


3110 


2199 

5317 

3756 


3756 


2200 

5320 

3235 


3235 



/rOCLl2,37 ClAUl'^ V 71 23106 PAGE 1»A0 


22C1 


. 3/e 

X t 

nmnk -A 

C t «. 1- 

22v'2 

5 3 22 

r c fr’! 


OOO0 

22;'3 

'“723 



0 ;?) (?l 

22r4 

*^3 2 4 

, 000 


0020 

22C-5 

5325 


XSQS. 

0003 

2206 

5326 

<000 


0000 

2207 

53 2 7 



0000 

22P8 

5 3 3? 



0000 

2209 



/SlME CONSTANTS 

2210 

5331 

7764 

C9, 

7764 

2211 

5332 

2501 


2501 

22l2 

5333 

7015 


7015 

2213 

5334 

1042 


1042 

2214 

5335 

7771 

C7, 

7771 

2215 

5336 

5464 


5464 

22l6 

5337 

5514 


5514 

22l7 

5340 

6150 


6150 

2218 

5341 

7775 

C5# 

7775 

2219 

5342 

2431 


2431 

2220 

5343 

5361 


5361 

2221 

5344 

4736 


4736 

2222 

5345 

C‘C^00 

C3i 

0000 

2223 

5346 

5325 


5325 

2224 

5347 

0414 


0414 

2225 

5353 

3167 


3167 

2226 



/END OP 

extended FUNCTIONSi 

2227 



/ 


2228 



/handles 0 Ii expression 

2229 



/SETS CLOCK ACCORDING To EXPRESSION 

2230 



/ 


2231 

5351 

4540 

setclk; 

PUSHJ /**»*#»## 

2232 

5352 

1612 


EVAL-1 /#•****•« 

2233 

5353 

4407 


tint /*•*••••• 

2234 

5354 

4375 



2235 

5355 

V000 


rCXT /»#»##♦## 

2236 

5356 

6132 


CLLR /*#•**•*# 

2237 

5357 

6134 


CLEN /••**#•*» 

2238 

5360 

4453 



2239 

5361 

6133 


CLAB /•»•***•• 

2240 

5362 

7200 


CLA /#♦#•»•** 

2241 

5363 

1006 



2242 

5364 

6132 


CLLR /**#****# 

2243 

5365 

1123 



2244 

5366 

6134 


CLEN /•**••••* 

2245 

5367 

1374 



2246 

5370 

6132 


CLLR /•*#••*** 

2247 

53n 

7200 



2246 

5372 

5773 


JMP 1 ,*1 /*•*••••* 

2249 

5373 

r-611 



2250 

5374 

4600 

04600 » 


2251 

5375 

;007 

mmunoRo 

,71470010 /*••»•••* 


5376 

4730 




5377 

tOOO 



2252 



/PACE 1 

- INPUT/oUTPUT routines for the focal 

2253 



/floating point PACKAGE. 


/F0CL12 


914110 

V703 ll-JAN-71 

23106 PACE^jpl 

2254 


/IN tHC COMMENTS 3El.0«l 

2255 



/ F B NUMBER OF DIGITS 

TD Be output ■FISW 

2256 



/ 0 » numbfr Of decimal 

olACES ■DECP 

2257 



/ E « decimal Exponent 

■ BEXP 

2258 



/ p B number of places 

REMAINING TO BE 

2259 



/ PRINTED BEFORE OEcINAl PORT 

2260 


5470 

• 5430 

or decimal OICITS out 

2261 


■23 6 

DIG1tS|i6 /number 

2262 

5473 

■•07 3 

TOO, V 0 

/SAVE max, number Or DIGITS AVAILABLE • •SET COUNTS* 

2263 

5401 

3334 

DCa scount 

2264 

54 22 

1052 

tad fisw 


2265 

5423 

4557 

RTl6 


2266 

5474 

122 

AND P77 


2267 

5405 

3032 

DCA T1 


2268 

54B6 

1032 

tAb T1 

/NO, COMPUTE Field sizes 

2269 

5407 

7041 

CIA 

2270 

5410 

7450 

SNA 


2271 

5411 

1326 

tAO MD 


2272 

5412 

3335 

DCA FCOUNT 


2273 

5413 

1052 

TAD FISW 

/(JMP FPRNT) ■ For no rounocin. 

2274 

5414 

7450 

SNA 

/FLOATING OUTPUT? 

2275 

5415 

5241 

JMP R6 

/yes. round off to max, no. places 

2276 

5416 

7122 

and P77 


2277 

5417 

3333 

OCA OECP 


2278 

5420 

l335 

TAD FCOUNT 


2279 

5421 

1333 

tAD OECP 


2280 

5422 

7510 

SPA 

/ r,o > 0 1 

22b1 

5423 

5230 

JMP ,*5 

/YES 

2282 

5424 

7240 

CLA CMA 

/NO, 

2283 

5425 

1032 

TAb T1 


2284 

5426 

3333 

OCA OECP 

/MAKE 0 ■ F»1 

228? 

5427 

7040 

cma 


2286 

5430 

1033 

TAb T3 

/compare decimal Exponent 

2287 

5431 

7500 

SMA 

/ f.d > et 

2288 

5432 

7200 

CLA 

/NO, ROUND OFF TO ’.’F PLACES 

2289 

5433 

1032 

tAO T1 

/YES 

2290 

5434 

7510 

SPA 

/ D*E < 0 f 

2291 

5435 

5263 

JMP fPRNT*2 

/YESi NO ROUnOING needed, CO TO PRjNT 

2292 

5436 

1326 

TAD MD 

/NO, ROUND TO 0*E PLACES, 

'jf 

*' £ >■ 

5437 

7500 

sma 

/TO A MAXIMUM OF D PLACES 

22 94 

5440 

7200 

CLA 


2295 

5441 

1327 

R6i TAD RN02 

/ •ROUND UP • 

2296 

5442 

3071 

DCA T2 

/SAVE NaM0ER*l OF PLACES TO ROUND TO. 

2297 

5443 

1731 

TAD 1 Burst 


2298 

5444 

1071 

TAD T2 

/set up buffer address at WHICW 

2299 

5445 

3336 

DCa PLCE 

/ROunDRC off should start 

23P0 

5446 

1071 

TAD T2 


23F1 

5447 

7041 

CIA 

/set up COUNT OF MAXIMUM NUMBER 

2322 

5450 

3371 

DCA T2 

/OF CARRIES allowable 

23?!3 

5451 

1325 

TAD K5 

/little extra on first digit. 

2304 

5452 

2736 

RET, ISH I PLCE 

/AOO 1 TO OlCit At CURRENt POSITION 

2325 

5453 

1736 

tAD I PLCE 


2306 

5454 

1335 

TAO CIM12 


23G7 

5455 

7710 

SPA CLA 

/CARPY required? 

2378 

5456 

5265 

JMP fprnt 

/no, CO TO output 


23136 PACE 1»42 


/F0Cl12 

, T t 

ClALlC 

V303 

li;UAN»7l 

23^'9 


3 736 


OCA I PLCE 

2310 

? < 1 

’"71 


IS? T2 

2311 

5*tl 

5321 


JMP DECR 

23l2 

* ^ ? 

^736 


IS? 1 PLCE 

23l3 

5463 

2;"33 


IS? T3 

23l4 

•464 

7200 


CLA 

2315 

'465 

1352 

FPRNT. 

Tad fisw 

23l6 

544 6 

765m 


SNA CLA 

231? 

*447 

5356 


JMP FLOUT 

2318 

*4 72 

t335 


TAD FCOUNT 

23l9 

5471 

1033 


TAD T3 

2320 

5472 

7540 


sma SHA 

2321 

5473 

5355 


JMP FLOUTol 

2322 

5474 

1333 


TAD DECP 

2323 

5475 

7500 


sma 

2324 

5476 

7200 


CLA 

2325 

5477 

7341 


CIA 

2326 

5530 

1033 


tAO T3 

2327 

5531 

7341 


CIA 

2328 

5532 

3032 


OCA T1 

2329 

5533 

1033 

back! 

tAO T3 

2330 

5534 

1032 


TAD T1 

2331 

5535 

7650 


SNA CLA 

2332 

5.536 

5343 


JMP DIG 

2333 

5537 

1032 


TAO T1 

2334 

5510 

7001 


lAC 

2335 

5511 

7710 


SPA CLA 

2336 

5512 

1105 


TAO M20 /YES 

2337 

5513 

4336 

IN, 

JMS OUTA 

2338 

5514 

2032 


ISZ T1 

2339 

5515 

5303 


JMP BACK 

2340 

5516 

1102 


TAD PER 

2341 

5517 

4551 


PRiNTC 

2342 

55S3 

5303 


JMP BACK 

2343 

5521 

7340 

DECR. 

CMA 

2344 

5522 

1336 


TAD PLCE 

2345 

5523 

3336 


DCA PLCE , 

2346 

5524 

5252 


JMP RET 

2347 

5525 

:<034 

K5, 

4 

2348 

5526 

7772 

md. 

"DIGITS 

2349 

5527 

{1007 

RND2. 

DIGITS*! 

2350 

5530 

7766 

0M12| 

-12 

2351 

5531 

6153 

BUFST, 

SADR 

2352 

5532 

6154 

OPUT. 

OUTDG 

2353 

5533 

,'■030 

DECP. 

0 

2354 

5534 

•■033 

SCOUNTi 

0 

2355 

5535 

1'000 

fcount; 

C 

2356 


5536 

PLCE«. 


2357 

5536 

;'3C(‘ 

OUTa. 


2358 

5537 

4732 


JMS I OPUT 

2359 

5540 

2335 


IS? FCOUNT 

2360 

5541 

5736 


JMP I OUTA 

2361 

5542 

562C 


JMP, I TGO 

2362 

5543 

7040 

DIG. 

cma 

2363 

5544 

1033 


TAD T3 


/yes. make current 015IT ZERO 

/3EGINNI^C or BUFFER REACHEO? 

/NO. decrement suffer address and repeat 

/YES. SET mantissa TO 0.1 

/compensate by incrementing exponent 
/auto^inoex register already set, ; •print 

/ F » 0 7 

/YES. OUTPUT AS FLOATING NUMBER 


/ E > F ? 

/YES, CONVERT TO E FORMAT 

/ E < r»o ? 

/NO, TAKE P ■ E 
/YES, take P t F-D 


/SET UP MINUS P 
/PRINT DO. ODD 

/ P ? E ? 

/yes. print digit 

/NO, 

/ P > I 7 

Take space <240»260J| otherwise ZERO 
/PRINT character 

/p characters printed? 

/NO 

/YES. 

/PRINT decimal Point 

/BACKUP TO TOP OF BUFFER, 


/modifiable locations 


/modified registers. 

/PRr.'T character 
/F characters PRINTED? 
/NO, RETURN 
/YES, NUMBER FiNSHED 


/reduce e, by 1 


/F0CLX2 . 


OlALl? 


ll-JAN-71 

23106 PAGE ^1^3 

2364 

V 45 

7^^33 


DCa T3 

• 

2365 

6846 

?334 


IS? SCOU'JT 

/ARE all SIC. FIGS. USED? 

2366 

5 = 47 

5353 


JMP ,*4 

/NO 

2367 

555? 

704!’! 


C'lA 

/YESi 

2368 

5551 

3334 


DCa SCOU.'JT 

/RESET COUNT Tc -1 

2369 

5552 

5313 


JMP IN 

/AND leave C(AC) ■ 0 

2370 

5553 

1 4 14 


TAD 1 FlTXR 

/TAKE NEXT DiOlT FROM BUFFER 

2371 

5554 

5313 


JMP IN 


2372 



/DO FL-OATINC output 


2373 

5555 

7200 


CLA 

/IF OUTPUT TOO LARGE# 

2374 

5556 

4732 

FLOUT# 

JMS 1 OPUT 

/PRINT ''0" 

2375 

5557 

1132 


Tad per 


2376 

5560 

4551 


PRiNTC 

/PRINT 

2377 . 

5561 

2200 


IS? TGO 

/SECOND return 

2378 

5562 

1414 


tAO I FLTXR 

/take next digit from buffer 

2379 

5563 

4336 


JMS OUTA 

/PRINT IT 

2380 

5564 

2334 


iSi SCOUNT 

/TEST FOR ENO OF INPUT 

2301 

5565 

5362 


JMP .bO 

/AND repeat 

2382 

5566 

7040 


CMA 


2383 

5567 

3334 


DCA SCOUNT 

/OUTPUT EXTRA ZEROS, 

2384 

5570 

5363 


JMP ,*5 


2385 

5571 

«000 

absolv; 

0 


2386 

5572 

1045 


tAO HORD 


2387 

5573 

3050 


OCA SICNF 


2388 

5574 

1045 


TAO HORO 


2389 

5575 

7710 


■SPA CLA 


2390 

5576 

4451 


JMS I minski 


2391 

5577 

5771 


JMP 1 ABSOLV . 


2392 



/DOUBLE 

PRECISION OECIMaL-BimARY 

2393 



/.INPUT 

AND CONVERSION 

For * or • XXX, 1, 

2394 


5600 

• 5600 



2395 

5600 

n000 

occonv; 

0 


2396 

5601 

3046 


OCA LORD 


2397 

5602 

3044 


OCA EXP 

/ZERO THE EXPONENT AND 

2396 

5603 

3045 


DCa HORD 

/INITIALIZE FLOATING AC, 

2399 

5604 

3047 


DCA 0VER2 


2400 

5605 

3314 


DCA ONUHBR 


2401 

5606 

3050 


DCA SICNF 


2402 

5607 

1066 


TAD CHAR 

/ALLOW keyboard SIGN CHECKS, 

2403 

56i0 

1264 


TAD MPLUS 


2404 

5611 

7450 


SNA 


2405 

5612 

5220 


JMP 1*6 

/*8lONI GET next 

2406 

5613 

111! 


TAO m2 

/check • SIGN 

2407 

5614 

7640 


sza cla 


2408 

5615 

5221 


JMP ,*4 


2409 

5616 

7040 


cma 

/iNiT sign check to POS, 

2410 

5617 

3050 


DCA SICNF 


2411 

5620 

4666 


JMS I XINPUT 

/GET NEXT 

2412 

5621 

1366 


TAO CHAR 

/A SPACE PERHAPS? 

24l3 

5622 

1265 


TAb MSPACE 


24i4 

5623 

7650 


SNA CLA 


24i5 

5624 

5220 


JMP i-A ■ 


24i6 

5625 

4 227 


JMS OECON 


2417 

5626 

5600 


JMP I OECONV 


24i6 

5627 

::-.000 

OECONi 

0 





r ^ 


/rOCl.12.^7 DiALlS V7?3 

'Pi‘,9 1066 ta:.) char 


CM 

5630 

1066 

2420 

5631 

1262 

2421 ■ 

5632 

7650 

2422 

5633 

5627 

2423 

5634 

4561 

242A 

5635 

5627 

2425 

5636 

5247 

2426 

5637 

1054 

242? 

5640 

3313 

2428 

5641 

4267 

2429 

5642 

2314 

2430 

5643 

7640 

2431 

5644 

4566 

2432 

5645 

4666 

2433 

5646 

5230 

2434 

5647 

1066 

2435 

5650 

1112 

2436 

5651 

7710 

2437 

5652 

5627 

2438 

5653 

1066 

2439 

5654 

1263 

2440 

5655 

7740 

2441 

5656 

5627 

2442 

5657 

1066 

2443 

5660 

i 122 

2444 

5661 

5240 

2445 

5662 

7473 

2446 

5663 

7446 

2447 

5664 

7525 

2448 

5665 

7540 

2449 

5666 

i’755 

2450 

5667 

0^00 

2451 

5670 

1047 

2452 

56n 

3043 

2453 

5672 

1046 

2454 

5673 

3042 

2455 

5674 

1045 

2456 

5675 

3041 

2457 

5676 

3312 

2458 

5677 

4315 

2459 

5700 

4315 

2460 

57 01 

4333 

• 2461 

5702 

4315 

2462 

5703 

l3l3 

2463 

5704 

3043 

2464 

5705 

3042 

2465 

5706 

3041 

2466 

5707 

4 333 

2467 

5710 

l3l2 

2468 

571 1 

5667 

2469 . 

5712 


2470 

5^3 

• 'j V V 

2471 

5714 

• nc'r' 

2472 

5715 

■ 300 

2473 

• '5716 

1047 


23t06 PACE l-AA 

/TEST LEAD C>>ARACTER TTi'R TERMINATOR 


OSAvE* 


mine, 

MINUS?, 

MPLUS» 

MSPACEi 

xinput; 

MULTlO, 


TAD MINE 

SNA CLA 

JMP I DECON /E 

TESTN 
jMP I DECON /. 

JMP DTST /OTHER 

TAD SORTCN /N 

%s SuLTia /remain must se since overelow is checked 
ISZ ONUMBR /count digits 

error? / INPijT<»OvERrLOw ERROR 

JMS I xinput 

JMP DECON*l /continue 

TAO char /allow AeZ 

TAD MINUSA 
SPA CLA 
JMP 1 DECON 
7AD CHAR 
TAD MINUS? 
sha sma C Li a 

JMP I DECON /USE SIX BITS OP ASCII 

tAD CHAR 
AND P77 

JMP DSAvE - 

.305 /(7532); POR ampersand 

.332 
.253 
.240 
INPUT 

0 /ROUTINE TO multiply PLAC BY TEN (10) 

TAD 0VER2 

DCA OVER! „ . 

TAD LORD /OOURLC precision WORD 

OCA ACIL /BY TEN (DECIMAL) 

TAD HORO /REmAIN.REMAINDER 


/USE SIX BITS OP ASCII 


Tad lord 

OCA ACtL 
TAD HORO 
DCa ACIh 
OCA remain 
JMS MULT2 
JMS MULT2 
JMS 0U8LAD 
JMS MULT2 
TAO DIGIT 
OCA OVERl 
DCA ACiL 
DCa ACiH 
JMS DUBLAD 
TAD REMAIN 
JMP I MULT10 


/CLEAR OvERPlOw word 

/call subroutine to 
/multiply by Two 
/call double add 

/add l*st digit received 


/EXIT with remainder 

/IN AC 


remain; 

DIGIT* 

onuhbR; 

MJLT2* 


D /storage POR DIGIT 

£1 /*NUMBER op digits 

0 /multiply 0VER2, lord, HORD BY 2 

TAO 0VER2 


>'0Cl12.5: 


CIAL10 

Vi'03 

llljAN«71' 23106 PAGE 

2474 ' 

Wl7 

7104 


CLL RAL /CARRY IMSERT BIT IS ^^.INK 

2475 

572Z 

3047 


DCa 0VER2 

2476 

57?1 

104 6 


TAD LORO 

2477 

5722 

7 30 4 


RAL 

2478 

5723 

3‘^46 


dca lord 

2479 

5724 

3 045 


tAO HORD 

2460 

5725 

7004 


ral 

2481 

5726 

3045 


DCA HORD 

2482 

57?7 

|312 

'i 

TAD remain 

2493 

5730 

7004 


RAL 

2464 

5731 

3312 


OCA remain 

24s5 

5732 

5715 


JMP I MULT2 

2466 

5733 


dublad; 

0 /TRIPLE PRECISION ADOlTION 

2487 ' 

5734 

7300 


CLA CLL 

2488 

5735 

1047 


TAO 0VER2 

2489 

5736 

1043 


TAD OVCRl 

2490 

5737 

3047 


OCA 0VER2 

2491 

5740 

7004 


RAl 

2492 

5741 

1046 


TAD LORO 

2493 

5742 

1042 


TAD AClL 

2494 

5743 

3046 


OCA LORD 

2495 

5744 

7004 


RAL 

2496 

5745 

1045 


tAO HORD 

2497 

5746 

1041 


Tad ACiH 

2498 

5747 

3045 


DCA HORO 

2499 

5750 

7004 


ral 

2500 

5751 

1312 


TAD remain /WITH OVERFLOW 

2501 

5752 

3312 


DCA remain 

2502 

5?53 

5733 


JMP I DUBLAO 

2503 

5754 

v'000 

DIVl, 

0 /SHIFT OPERAND RIGHT 

2504 

5755 

7330 


CLA CLL /TRIPLE PRECISION 

2505 

5756 

1041 


tAO AClH 

2506 

5757 

t5l0 


SPA 

2507 

5760 

7120 


CLL CML 

2508 

5761 

7010 


RAR 

250 9 

5762 

3041 


OCA ACIH 

2510 

5763 

1042 


TAO AClL 

2511 

5764 

7010 


RAR 

25l2 

5765 

3042 


DCA AClL 

2513 

5766 

3 043 . 


TAD OVERl 

2514 

5767 

7010 


RAR 

25l5 

5770 

3043 


DCA OVERl 

2516 

57n 

2040 


IS! £X1 

2517 

5772 

5754 


JMP I DIVl 

2518 

5^3 

5754 


JMP I DIVl 

25l9 

5774 

4566 

fsscrr; 


2520 


6000 

• 600P 


2521 



/floating output conversion routine 

2522 

6000 

,'000 

floutp. 

0- 

2523 

6001 

7610 



2524 



lmodc 


2525 

CM 

S 

< 

6377 

optr, 


2526 



PMODE 


2527 

6003 

1045 


TAD HORD /NUmPER>0?? 

2528 

6004 

7700 


SMA CL* 



/fOCLl? ..■^7 rlALl'" 

2529 i334 

2530 6006 l336 

2531 6007 4551 

2532 6010 4753 

2533 6011 3033 

2534 6012 1044 

2535 6013 7510 

2536 , 6014 5227 

2537 6015 7443 

2538 6016 i341 

2539 6317 7750 

2540 6020 5234 

2541 6021 4407 

2542 6022 4744 

2543 6023 .-000 

2544 6024 7001 

2545 6025 1033 

2546 6026 5211 

2547 6027 4437 

2548 6030 4752 

2549 6031 k'000 

2550 6032 7040 

2551 6033 5225 

2552 6034 3745 

2553 6035 3746 

2554 6036 l350 

2555 6037 3014 

2556 6040 1044 

2557 6041 7140 

2558 6042 3354 


2559 

6043 

1343 

2560 

6044 

3044 

2561 

6045 

4527 

2562 

6046 

2354 

2563 

6047 

5245 

2564 

6050 

l746 

2565 

6051 

7450 

2566 

6052 

5270 

2567 

6053 

l342 

2568 

6054 

7710 

2569 

6055 

5264 

2570 

6056 

7001 

2571 

6057 

3414 

2572 

6060 

2044 

2573 

6061 

1342 

2574 

6062 

2033 

2575 

6063 

7000 

2576 

6064 

1746 

2577 

6065 

?033 

2578 

6066 

7000 

2579 

6067 

7410 

2580 

6070 

4747 

2531 

6071 

3414 

2582 

6072 

2044 

2503 

6073 

5270 


V v; 3 


F j 0 2 » 


0603. 


rG04. 


rco5. 


llljA' -71 

Ti^ SMSP 
T/.i SMIn 
FR!NTC 

JMS 1 ABS0L2 
DC'a 73 

TAD IXP 

SPA 

JMP F603 
SHa 

TAD m4 
SPA SNA CLA 
JMP FG04 
PINT 

FMUL I PPTEN 
TEXT 
I AC 

tAD 73 
JMP rC02 
FI1J7 

FMUL I 7eNP7 
FEX7 

cma 

JMP .«6 
OCA 1 DP7 
OCA I REP7 
TAD SAOR 
OCA FUTXR 
TAD EXP 
CMA CLU 
OCA 0U7DG 
TAD DC0UN7 
OCA EXP 
JMS I DOUBLE • 

151 0U7DG 
JMP ,»2 
tAD 1 REPT 
SNA 

JMP FC08 
tad FM12 
SPA CLA 
JMP ,*7 
lAC 

OCA I FL7XR 

152 EXP 
TAD FM12 
1S2 73 

NOP 

TAD I REP7 
IS? 73 
nOP 
SKP 

JMS 1 M10P7 
OCA I PL7XR 
IS? EXP 
JMP ,»3 


23106 


PAGE 1 



/PRINT OP * SPACE. 


/IM7IAL1HE decimal EXPCNEN7 
/IS FXP 0 70 4? 

/TOO LARGCIMULTIPLY BY l/l?- 


/multiply by Two to position BIT0 

/CLEAR OVERFLOW WORD 
/INIT BUFFER POINTER 

/compute bits in iST DIGIT 

/temp count 

/setup count of total output 

/ROTATE OUT THE 1ST 4 BITS • 

/TEST FOR 10il5t0il>»9 
/ignore 1ST 2ER0 


/0«9 

/OUTPUT A 1 
/COUNT the OlOlT 

/correct remainder 
/BUmP decimal exponent 

/compute resultant OR SECOND DIGIT 


/IE, ,672X10»6*,72, , ETC 

/ALL DIGITS OUTPUT?? 

/NOl CONTINUE 


•0CLl2.3j 

m 

CI6L10 

V303 

ll-JAN-71 

23106 PACE 

2584 


1353 


TAD SADR 

/iNiT BurPER f^Rtcr 

2585 

6075 

3014 


OCA tltxr 


2586 

6?.76 

1343 


TAD OCOUNT 


2537 

6377 

4751 


JMS I ROUND ■ 

/output mantissa 

2558 

6100 

5600 


JMP 1 FLOUTP 

/PixEO POINT Done 

2539 

6131 

1333 


TAD CHRT 

/print ''E'' 

2590 

6i02 

4551 


PRINTC 


2591 



/OUTPUT 

tHC EXPONENT 


2592 

6103 

1333 

% 

tAD T3 

/take absolute value or exponent 

2593 

6104 

7510 


SPA 


2594 

6105 

7041 


CIA 


2595 

6106 

3345 


OCA HORO 

/SAVE * POWER 

2596 

6137 

1033 


TAD T3 

/PRINT SIGN 

2597 ^ 

6110 

7700 


sha cla 


2598 

6111 

1111 


tAO m2 


2599 

6il2 

1 336 


tad SMIN 


2600 

6113 

4551 


PRINTC 


2601 

6114 

1045 


tAD HORO 


2602 

6115 

2044 


IS? EXP 


2603 

6li6 

1337 


TAO M144 


2604 

6117 

7500 


SMA 


2605 

6120 

5315 


JMP ibS 


2606 

6121 

1340 


TAO C144 


2607 

6122 

3045 


OCA HORO 

/SAVE tens and units 

2606 

6 1 23 

7040 


cma 

/OUTPUT hundreds 

2609 

6124 

1044 


TAD EXP 


2610 

6125 

7440 


SZA 

/unless zero 

2611 

6126 

4354 


JMS OUTDO 


2612 

6127 

1045 


TAO HORO 

/PRINT TWO DIGITS 

2613 

6i30 

4732 


JMS I PRNTI 


2614 

6131 

5600 


JMP 1 ruouTp 


26l5 

6132 

2442 

PPNTii 

PRNT 


2616 

6133 

C'305 

CHRT. 

305 /£ <0246) • POR AMPERSAND 

2617 

6134 

7763 

SMSPi 

240»255 / 


2618 

6135 

3275 

PEIO. 

275 


2619 

6i36 

P255 

SMIN. 

255 


2620 

6137 

7634 

M144, 

«144 /■100 


2621 

6140 

■?144 

C144, 

0144 /A100 


2622 

6141 

7774 

H4, 

«4 


2623 

6142 

7766 

r'112, 

-12 


2624 

6143 

7771 

dcount; 

-DiCITS-l 

/number op digits output 

2625 

6i44 

6275 

PPTfNi 

PTPN /lEI 


2626 

6145 

5713 

OPT, 

DIGIT 


2627 

6146 

5712 

REPT, 

REMAIN /OVERPIQW PROM INTEGER MULTIPLY 

2623 

6147 

5667 

MlOPTi 

MULT10 


2629 

6150 

7467 

SADR, 

0UPPER-1 


2630 

6151 

5400 

ROU^O# 

TOO /ACTUAL 

OUTPUT routine 

2631 

6152 

6271 

TENPT# 

TEN 


2632 

6153 

5571 

absol2; 

A8S0LV 


2633 

615.4 

■'300 

OUTOCi 

0 /OUTPUT 

ONE digit 

2634 

6155 

1113 


Tad C260 


2635 

6156 

4551 


PRINTC 


2636 

6157 

5754 


JMP I OUTDG 


2637 

6160 

7750 

RANMUUi 

775012333)5733 



6161 

2333 





23I0(S PAGE l-Ta 


/FOZi.12. 


2633 

2639 

26^3 

26J1 

26<2 

26a3 

2644 

2645 

2646 

2647 

2648 

2649 
2653 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 
2663 
2661 
2662 

2663 

2664 

2665 

2666 

2667 

2668 
2669 
2673 

2671 

2672 

2673 

2674 

2675 

2676 

2677 

2678 

2679 

2633 
2631 
2682 
2653 

2634 
2685 
2636 

2687 

2688 
2659 

2690 

2691 


37^ 

:j! .Llf’ 

V '3 ll»JAN»71 

6162 

5733 


6i 63 

1 167 

l£’UT» SUBS2 

6164 

3171 

dca SUSS ■ 

6165 

1170 

tad ■ LESJB2 

6166 

3173 

OCA LESUSS 

6167 

1032 

TAD LHE'mP 

6170 

6212 

6212 

6lh 

4775 

JMS 1 STOP IT 

6172 

2407 

IS2 I 7 

6173 

5774 

JHP I ,♦! 

6174 

6401 

fpnt*i 

61 75 

2300 

storit; itstor 

6176 

6213 

LS, 6213 /CIF C£ 

6177 

5134 

JMP XLS 

/USED BY 8k 
/floating POINT INPUT 


6200 

• 6200 

6200 

;*000 

FlINTP; 0 

6201 


sza cla 

6202 

4706 

JMS I XJN 

6203 

1066 

T'AO CHAR 

6204 

1114 

TAD m24B 

6205 

7650 

SNA CLA 

6206 

5202 

JMP ,»4 

6207 

4702 

JMS I DPCVPT 

6210 

1066 

TAD CHAR 

6211 

1115 

TAD MPCR 

6212 

7640 

sza cla 

6213 

5221 

JMP FICOl 

6214 

4706 

JMS I XIN 

6215 

3705 

DCA I DPN 

6216 

4703 

JMS I OCONP 

6217 

1705 

TAb I OPN 

6220 

7041 

CMA IAC 

6221 

3033 

FiGOli DCA T3 

6222 

i3l0 

TAD P43 

6223 

3044 

DCA EXP 

6224 

4704 

JMS I RES0L5 

6225 

4707 

JMS f INORM 

6226 

4407 

FINT 

6227 

6433 

FPUT I PTl 

6230 

.-^300 

FExT 

6231 

1066 

TAb CHAR 

6232 

l301 

Tad minuse 

6233 

7640 

sza cla 

6234 

5246 

JMP ENDFI*3 

6235 

4736 

JMS I XlN 

6236 

4702 

JMS I DPCVPT 

6 237 

4704 

JMS I RES0L5 

6240 

1047 

tad 0VER2 

6241 

1033 

Tad t3 

6242 

3vo33 

DCa T3 

/compensate for decimal 

6243 

4407 

ENDFI» FINT 

6244 

.430 

FGCT I PTl 


/»»•»•••• calls storing routine for 

/#**«*•»» g rN(X>« 

/•«»«•««« 

/««•««•«# 

r 

/•«#«««## 


library save 


/IF C(AC) 9 3i USE CHAR 
/IF C{AC> NONsEERO , GET NEXT 
/GET FIRST char 

/ignore leading spaces 


/read first digit group 
/and sit "SIGNF” 

/ended by period? 

/YES» read 2AN0 GROUP 

/SAVE NUMBER OF DIGITS IN T3 
/NO, 

/normalize first, then 

/SAVE NUMBER 


READ IN? 

/NO 

/YES, READ 3rd DIGIT GROUP 
/I.E. CONVERT decimal EXPONENT 


/C(SEXP)PLACES to right 
/OF last digit 
EXPONENTS 
/RESTORE MANTISSA 


/F0CLi2.37^ 

niAL13 


23106 page: 

2692 



TEXT 


2693 

6246 

1033 

TAD T3 

/TEST decimal EXPONENT 

2694 

6247 

7450 

SNA 


2695 


5630 

JMP I FLINTP 

/FINISHED 

2696 

^751 

77t'p 

SMa CLA 


2697 

6752 

5261 

JMP riG04 


2698 

6253 

4407 

FlNT 

/. IS TO THE LEFTI 

2699 

6254 

4275 

FMUL PTEN 

/TIMES ,1000 

272'0 

6255 

643? 

V FPUT 1 PTl 


2701 

6756 

.'003 

FEXT 


2702 

6257 

7001 

lAC 


2703 

6260 

5266 

JMP ,*6 


2704 

6261 

4427 

FIG04# FIMT 

/• is TO THE RIGHT! 

/multiply by 10 

2705 

6262 

4271 

FMUL ten 

2706 

6263 

6430 

FPUT I PTl 


2707 

6264 

1-000 

FEXT 


2703 

6265 

7040 

cma 


2709 

6266 

1033 

tad T3 


2710 

6267 

3033 

OCA T3 


2711 

6270 

5246 

JMP EN0FI*3 


2712 

6271 

1004 

ten, 0004 


27i3 

6272 

2400 

2400 


27l4 

6273 

C000 

0000 


27l5 

6274 

0 0 0 

0000 


27l6 

6275 

7775 

PTEn, 7775 


2717 

6?H 

3146 

3146 


27l8 

6277 

3147 

3147 /(3146) 

• For 4.W0R0 

27l9 

6300 

3150 

3150 


2720 

6301 

7473 

MINUSE; -305 /(7532} 

- For ampersand 

2721 

6302 

5600 

DPCVPT, oeconv 


2722 

6303 

5627 

OCONPi oecon 


2723 

6304 

7173 

RESOlS; RESOLV 


2724 

6305 

5714 

DPN, ONUMBR 


2725 

6306 

l' 7 5 6 

XIN, INPUT 


2726 

6307 

7335 

INORMi DNORH 


2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

6310 

2043 

P43, 43 

/END Or FLOATING POINT INPUT 
/? free 

/USED HY H.S, READER 

/ 

/calls loading routine for file 

/variables in EXPRESSIONS! CALLED BY EFUN3i 

/ 

2738 


6311 

• 6311 


2739 

63il 

1066 

fnum. Tad char 


2740 

6312 

3056 

OCA EFOP 


2741 

6313 

4545 

GEtC 


2742 

6314 

4550 

SORTC 


2743 

6315 

1771 

TERMS«1 


2744 

6316 

7410 

SKP 


2745 

6317 

5313 

JMP ,«4 


2746 

6320 

4562 

TSTLPR 



/rOCLl2.57 DlAL,i3 


2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 
2760 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 
2704 
2765 

2706 

2707 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 
2801 


6321 4566 


6322 4734 

6323 4453 


6324 ■ 

3171 

6325 

1045 

6326 

3173 

6327 

1413 

6330 

6212 

6331 

4733 

6332 

5536 

6333 

l533 

6334 

1631 

6335 

J000 

6336 

4545 

6337 

1066 

6340 

4542 

6341 

4545 

6342 

4550 

6343 

1374 

6344 

5735 

6345 

5341 

6346 

4335 

6347 

1066 

6350 

1374 

6351 

H40 

6352 

5357 

6353 

1413 

6354 

4547 

6355 

6365 

6356 

7772 

6357 

456-6 

6360 

5167 

6361 

5171 

6362 

2572 

6363 

5173 

6364 

6176 

6365 

6375 

6366 

0317 


6367 0303 

6370 1'315 

63^ '<'314 

6372 o323 

6373 .’307 

6374 7524 

6375 6213 

6376 5136 
6400 


6400 '.'000 

6401 7300 

6402 3047 

6403 3043 

6404 1600 

6405 7450 

6406 5600 


v;.C3 


ll-J^::-7i 


LOAoi?; 

PECALU. 

PASS. 


LTAPCi 


lerr. 

LCD. 
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/««««»««» 

/««««»«»« 

/»«««#«»« 

/«»»««««« 

/ »« * *» # 

/«»««•««« flit NOi 


LLlSt» 


mincom 

LCi 


J ,S I PECALL^ 

JMS 1 INTEGER 

DCA SUBS 

tad *40R0 

OCA UESuSS 

POPA 
6212 

JMS I LOAOIT 

JMP 1 EFUN3I 

itloao 

ECALL 

■ 0 

GEtC 

TAD CHAR 

PUSHA 

GEtC 

SORTC 

GUiST*! 

jMP I PASS 

JMP i»4 

JMS PASS 

tAO CHAR /'**«•#••• 

TAD MINCOM /*•*•••** 

S2A CLA /••**•*•# 

JMP LERR /*«#****• 

SORTJ /oH!!*#* JMPS ON SUBCOMMAND 

LLiST»l 

LGO-ULIST /*•**•••* 

ERR 0 R 4 /*•»*•#•• 

^ /***••••• 

/•••»•••• 

/•«•••••• 

/••**•••• 

/••••••** 

/•••••••• 

/•••••••• 

/**••*•*• 

/••*•••** 

/•••••••• 

XLC /•••*#*•• 


LC 

UM 

LW 

LS 

LC 

317 

303 

315 

314 

323 

307 

»254 

6213 


• 6400 
rPNT. 


/ PLOATING-POINT interpreter For focal, 


0 

CLA CLL 
DCa 0VER2 
DCA OVERl 
TAD I FPNT 
SNA 

JMP I FPNT 


/(NOP) ” FOR 4»W0R0 
/(NoP) • rOR 4wW0RD« 
/get next instruction 


or LlBR XXXX 




/FAST EXIT 


/F0CL12 


•OlALl? 

2002 

64P'7 

3264 

2803 

6410 

l264 

2004 

6411 

123 

2805 

6412 

7650 

2826 

6413 

5216 

2807 

6414 

1 104 

2808 

6415 

^200 

2809 

6416 

304r 

2810 

6417 

1106 

2Sil 

6420 

'264 

2012 

6421 

1040 

28l3 

6422 

3040 

28l4 , 

6423 

1265 

2815 ‘ 

6424 

'264 

28l6 

6425 

7650 

28l7 

6426 

5233 

28l8 

6427 

l440 

28l9 

6430 

7450 

2820 

6431 

5572 

2821 

6432 

3040 

2822 

6433 

2200 

2623 

6434 

7040 

2824 

6435 

1040 

2825 

6436 

3015 

2826 

6437 

1264 

2827 

6440 

7106 

2828 

6441 

7006 

2629 

6442 

■n07 

2830 

6443 

7450 

2831 

6444 

5271 

2832 

6445 

1266 

2833 

6446 

3264 

2834 

6447 

5.664 

2835 

6450 

7450 

2836 

6451 

5267 

2037 

6452 

3264 

2838 

6453 

1306 

2839 

6454 

3014 

2640 

6455 

1117 

2841 

6456 

3057 

2342 

6457 

1415 

2843 

6460 

3414 

2644 

6461 

2057 

2845 

6462 

5257 

2846 

6463 

5664 

2847 

6464 

il000 

2848 


L'040 

2849 

6465 

,'400 

2850 

6466 

6575 

2851 

6467 

1305 

2852 

6470 

5275 

2853 

6471 

1305 

2854 

6472 

3015 

2855 

6473 

7040 

2856 

6474 

1040 


Vt‘'03 li-JAN»7l 
dca jump 

tAO JUMP 
and C2UZ 

SNA CLA 
JMP ,*3 
TAD P7600 
AND rPNT 
^ DCA AOOR 
TAD Pi77 
AND JUMP 
TAD ADOR 
OCA ADOR 
TAD INDRCT 
AND JUMP 
SNA CLA 
JMP LOOP01 
tAO I AOOR 
SNA 

JMP I LEPPUT 
DCA ADOR 
LOOPDi; ISZ FPNT 
CMA 

tAO AODR 
OCA FLTXR2 
tAO JUMP 
CLL RTL 
RTL 

AND PI? 

SNA 

JMP FLBT 
tAri TABLE 
OCA JUMP 
TAD I JUMP 
SNA 

JMP FLPT 
OCA JUMP 
tAO CEXl 
OCA fltxr 
TAD MFLT 
OCA CNTR 
tAD I FLTXR2 

OCA 1 Fltxr 

I$2 CNTR 
JMP .-S 
JMP 1 JUMP 
JUMP, 0 
AODRbExI 
INDRCTi 0400 

table# ITaBLE 
FLPT. TAO CEXP 
JMP ,*5 

FLCT, tAO CEXP 

DCA FLTXR2 
CMA 

tAD ADDR 


23106 PAGE 


/get page sit 

/page ZERO? 

/YES 

/NO 

/C(FPNT)0.4 CONTAINS PACE BITS 
/CET 7 8lT address 


/indirect BITPl? 


/nojgo on 

/YES lOEFER ,W/0 AUTO-INOEX 


/•*#••••• IP PTl WAS ZERO# IT IS A 

/•••»•••• pile variable 


/CEt command 

/GET BITS 0«2iIE OPCODE 

/LOOKUP IN table 


/SAVE floating arouemenTiUnless’cet' or *PUT* 


/CO THERE 


/EXP TO (ADOR) 

/(aodrj to EXP 




/F0CLl2,S7 

DlALlP 

V003 

H;jAN»7l 

23106 PA5E 1-52 

2857 

6475 

3014 


DO" FLTXR 

/SAVE 'FROM' ADDRESS 

2358 

6476 

1117 


■^AD MFLT 

/3 OS 4 WORD? 

2859 

6477 

3057 


OCA CNTR 


2860 ■ 

6500 

1414 


TAD I FLTXR 


2861 

6501 

3415 


DCA I FLTXR2 


2862 

6502 

2057 


IS? CNTR 


2863 

6503 

5300 


JMP ,»3 


286^ 

6504 

5201 


JMP FPNT*1 


2865 

6505 

' : 0 4 3 

CEXP. 

EXP-1 


2866 

6506 

1.037 

CCXl. 

EXl-1 


2867 

6507 

4767 

FLSU, 

JMS I OPMlNS 

/FSUP»2 • negate The operand 

2868 

6510 

4772 

FLAO. 

JMS I ALGN 

/FLAD»1 ; FIRST align EXPONENTS 

2869 

6511 

5201 


JMP FPNT*i 

/RETURN IF NO ALIGNMENT IS POSSIBLE 

2870 

6512 

4774 


JMS I RAR2 

/TRIPLE PRECISION AOODITION 

2871 

6513 

4773 


JMS I RARl 

/since bits are shifted 

2872 

6514 

4775 


JMS I trad 

/RIGWT 

2373 

6515 

4771 

NORF. 

JMS 1 NORM 

/NOR‘<ALIZE TmE result 

2874 

65i6 

5201 


JMP FPNT*l 

/HInTIUSE 700X FOR FUNCTIONS. 

2875 



/interpretive power 


2876 

6517 

1045 

FLEXi 

TAD HORD 

/2ER07 

2677 

6520 

7200 


CLA 

/CRQCK»*»4 

2878 

6521 

5327 


JMP ,46 


2879 

6522 

3044 

ZERO. 

DCA EXP 

/YES 

2880 

6523 

3045 


OCA HORO 


2681 

6524 

3046 


DCA LORD 


2682 

6525 

3047 


DCA 0VER2 


2883 

6526 

5231 


JMP FPNT41 


2884 

6527 

4543 


PUSHF 

/AC TO A 4 POWER 

2885 

6530 

i.:044 


flag 


2886 

6531 

4543 


pushf 

/SETUP argument ( tHE EXPONENT) 

2867 

6532 

l.■040 


EXl 


2888 

6533 

4544 


POPF 


2889 

6534 

.)044 


FLAG 


2890 

6535 

4453 


JMS I INTEGER 

/only POSITIVE. INTEGER EXPONENTS 

2891 

6536 

t5l0 


SPA 


2892 

6537 

5344 


JMP ,45 

/{Could divide) 

2893 

6540 

7040 


CMA 


2894 

6541 

3264 


OCA JUMP 

/temp storage 

2695 

6542 

3043 


OCA OVERl 

/{NOP) • FOR 4-WORD 

2896 

6543 

1045 


TAD HORO 


2897 

6544 

7640 


S2A CLA 


2898 

6545 

4566 


ERR0R2 

/TOO large or negative exponent 

2899 

6546 

4543 


PUSHF 

/INITIALIZE TO one; 

2920 

6547 

2405 


fltone 


2901 

6550 

4544 


POPF 


2902 

6551 

J044 


FLAC 


2903 

6552 

4 544 


POPF 


2904 

6553 

7470 


ITERl 


2905 

6564 

5362 


JMP ,46 


2906 

6555 

4543 


PUSHF 


2907 

6556 

7470 


ITERl 


29G8 

• 6557 

4 54 4 


POPF 


2909 

6560 

’040 


EXl 


2910 

6561 

4770 


.. JMS I mult 

/"MulT" 

2911 

6562 

2264 


ISZ JUMP 



23I0A PAGE 


/F0CL12 
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29l2 

6563 

5355 

JMP ,a6 


29l3 

6564 

5201 

JMP FPNT*1 


29l4 

6565 

4770 

FLMV, JMS I mult 

/multiply 

2915 

6566 

5201 

JMP rPNT*l 


29l6 

6567 

7153 

OPMjMSi MINUS2 


29l7 

6578 

7^304 

mult, dmult 


29l8 

65n 

7335 

NORMi onorh 


29i9 

6572 

6623 

ALGNi align 


2920 

6573 

5754 

RARl. ' DlVl 


2921 

6574 

6757 

RAR2. D1V2 


2922 

6575 

5733 

trad, 0U9LAD 


2923 


6575 

itable-.-i 


2924 

65n 

6510 

TLAD 


2925 

6577 

6507 

FLSU 


2926 

6600 

7107 

FLOV 


2927 

6601 

6565 

FLMY 


2928 

6602 

6517 

FLEX 


2929 

6603 

>^'000 

C9000 


2930 

6604 

6515 

NOBF 


2931 

6605 

1^000 

ACMINS; 0 /ROUTINE TO COMPLEMENT FLAC • VIA "MINSKI** 

2932 

6606 

7200 

CLA 


2933 

6607 

1047 

Tad 0VER2 


2934 

6610 

7161 

CLL CML CIA 


2935 

6611 

3047 

OCA 0VCR2 


2936 

6612 

7004 

RAL 


2937 

6613 

1046 

tAO LORD 


2936 

6614 

7061 

CML CIA 


2939 

6615 

3046 

OCA loro 


2940 

66i6 

7004 

RAL 


2941 

6617 

1045 

tA5 HORO 


2942 

6620 

7061 

CML CIA 


2943 

6621 

3045 

OCA HORO 


2944 

6622 

5605 

JMP I ACM I NS 


2945 

6623 

;^000 

ALICNi 0 /SUBROUTINE TO ALIGN 

2946 

6624 

1045 

TAO HORO 

/BINARY POINTS 

2947 

6625 

7450 

SNA 


2948 

6626 

1046 

TAD LORD 

/IS MANTISSA ZERO? 

2949 

6627 

7650 

SNA CLA 


2950 

6630 

5311 

JMP NOXl 

/YES, RESULThOPERANO 

2951 

6631 

1041 

tAO AClH 

/NO, IS operand zero? 

2952 

6632 

7450 

SNA 


2953 

6633 

1042 

TAO AClL 


2954 

6634 

7450 

SNA 


2955 

6635 

1043 

TAD OVERl 


2956 

6636 

7650 

SNA CLA 


2957 

6637 

5623 

JMP I align 

/YES. exit; 

2958 

6640 

1040 

TAD EXl 


2959 

6641 

7041 

CMA lAC 


2960 - 

6642 

1044 

TAD EXP 


2961 

6643 

7450 

SNA 

/ARE EXPONENTS EQUAL? 

2962 

6644 

5273 

JMP AOONE 

/YES 

2963 

6645 

3205 

OCA ACMINS 


2964 

6646 

1205 

TAD ACMINS 


2965 

6647 

7500 

SMA 

/NO 

2966 

665fl 

7041 

CIA 

/negate and 


0 
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2967 

6651 

3322 


OCa amount 

■/SAVE the OIFPERENCE 

2963 

6652 

*322 


TAP AMOUNT 


2969 

6653 

1336 


TAD TEST2 


2970 

6654 

7710 


SPA CLA 

/can the exponents be aligned? 

2971 

6655 

5275 


JMP NOX 

/NO, USE' larger oE THE TWO, 

2972 

6656 

1235 


TAD ACMINS 

/YES, SHtPT THE SMALLER 

2973 

6657 

7700 


SMA CLA 


2974 

6660 

5265 


JMP ASHPT 


2975 

6661 

4357 


JMS DJV2 


2976 

6662 

2322 


IS2 AMOUNT 


2977 

6663 

5261 


JMP ,■2 


2976 

6664 

5273 


JMP AOONE 


2979 

6665 

7340 

ASHPt» 

CM A 


2980 

6666 

1040 


tad EXl 


2981 

6667 

3040 


OCA EXl 


2982 

6670 

4723 


JMS 1 TAGl 


2983 

6671 

2322 


IS2 AMOUNT 


2984 

6672 

5270 


JMP ,»2 


2985 

6673 

2223 

ADONC* 

IS0 ALIGN 


2986 

6674 

5623 


JMP I align 


2987 

6675 

1040 

NOX. 

TAO EXl 

/MISSION IMPOSSIBLE! 

2988 

6676 

7700 


SMA CLA 

/check PoR sign OirFERINCE 

2969 

6677 

5304 


JMP N0X2 


2990 

6700 

1 044 


tAD EXP 


2991 

6701 

7700 


SMA CLA 


2992 

6702 

5623 


JMP I ALIGN 

/*4 

2993 

6f03 

5306 


JMP .43 

/»w 

2994 

6704 

1044 

N0X2. 

TAO EXP 


2995 

6705 

7700 


SMA CL* 


2996 

6706 

1205 


tAb ACMINS 

/temp storage or OIFFERENCC, BOTH POS exp or BOTH NEC',' 

2997 

6707 

7743 


SMA SZA CLA 


2998 

6710 

5623 


JMP I Align 

/OK 

2999 

6ni 

1040 

NOXl, 

tAb EXl 

/USE larger 

3000 

6712 

3044 


OCA EXP 


3001 

6713 

1041 


TAb ACIH 


3002 

6714 

3045 


OCA HOPO 


3003 

6715 

1042 


fAO ACIL 


3004 

6716 

3046 


OCa LORD 


3005 

6n7 

1043 


TAb OVERl 


3006 

6720 

3047 


dca over? 


3007 

6721 

5623 


JMP I align 


3008 

6f22 

:'e00 

amount; 

0 


3009 

6723 

5754 

TACi; 

DIVl 

* 

3010 



/LEAVE 

12 8IT ANSWER 

IN AC UPON return a 

3011 



/leave 

PLAC AS AN INTEGER# 

30i2 

6724 

■'300 

nx, 

0 

/VIA (INTEGER) 

3013 

6725 

4751 


JM§ I A0SOL 


30i4 

6726 

.104 4 


TAD EXP 

/TEST rOR FRACTION 

30i5 

6727 

7750 


SPA SNA CLA 


3016 

6730 

5353 


JMP PlXM 

VDOUPLE CHECK POR MINUS ONE, 

3017 

6731 

7. ■•Pi 


lAC 


30i8 

6732 

3043 


DCA OVERl 


3019 

6733 

l350 


TAO P27 

/INIT alignment 

3020 

6734 

3040 


DCA EXl 


3021 

6735 

4223 


JMS ALIGN 

/DO THE alignment TO AN INTEGER 



/rocLis. 


DUuiO 

VO03 

li;jANn7i 23106 PACE 

3022 

6736 

027 

TEST2I 

0027 /already OONEJ (43)*P0R 4-WORO 

3!’23 

6737 

2047 


IS? 0VER2 

3024 

6740 

5344 


JMP ,*4 

3025 

6741 

2046 


IS? LORO 

3026 

6742 

7410 


SKP 

3027 

6743 

2045 


IS? HORD 

3028 

6744 

3047 


DCA 0VER2 /CLEAR THE FRACTION 

3029 

6745 

4752 


JMS I RESOL 

30313 

6746 

1346 


tad LORO /EXIT WITH LOW ORDER RESULT IN ACi 

3031 

6747 

5724 


JMP I FIX 

5032 

6750 

.‘027 

e27, 

27 

3033 

. 6751 

5571 

ABSOL# 

ABSOLV 

3034 ' 

6752 

7173 

RESOL ♦ 

RESOUV 

3035 

6753 

3044 

nXM, 

DCA EXP /CLEAR exponent 

3036 

6754 

3345 


DCA HORO 

3037 

6755 

3046 


DCA LORD 

3036 

6756 

5344 


JMP TEST2*6 ■ 

3039 

6757 

;'000 

D1V2, 

0 /SHIFT FLAC RIGHT 

3040 . 

6760 

7300 


CLA CLL 

3041 

6761 

1045 


Tad hord 

3042 

6762 

7510 


SPA 

3043 

6763 

7020 


cml 

3044 

6764 

7010 


RAR 

3045 

6765 

3045 


DCA HORD 

3046 

6766 

1046 


tad loro 

3047 

6^7 

7010 


RAR 

3048 

6770 

3046 


DCA LORO 

3049 

67n 

1047 


TAD 0VCR2 

3050 

6772 

7010 


RAR 

3051 

6773 

3047 


OCA 0VCR2 

3052 

6774 

2044 


ISZ EXP 

3053 

6775 

5757 


JMP I 0IV2 

3054 

6776 

5757 


JMP I 0IV2 

3055 

6777 

6777 

sPEciALi. /INPUT characters 

3056 

m337 


337 /LEFT ARROW 

3057 

7000 

0377 


377 /RUBOUT 

3058 

7001 

0212 


212 /L.F, 

3059 

7002 

0 375 


375 /ALT mode 

3060 

3061 

7003 

7777 

-1 

/<A*B*C)*(D*E*r)pA*OiA*Ei0OD»B#E 

3062 

7004 

'000 

OMULTf 

0 /N- PRECISION multiply WITH 

3063 

7005 

7001 


lAc /product in triple precision 

3064 

7006 

104 0 


tAO EXl /ADO exponents*! 

3065 

7007 

4324 


jMS SIGN /and determine SiCN OF RESULT 

3066 

7010 

7710 


SPA CLA 

3067 

7011 

4353 


JMS MINUS2 

3068 

7012 

3301 


DCA OATUM-1 /INITIAL12E RESUlT 

3069 

7ni3 

3300 


DCA DATUMe2 

3070 

7014 

3277 


DCA DATUMaS 

3071 

7015 

3276 


DCA DATUM-* 

3072 

7016 

104 5 


Tad a /a*o 

3073 

7017 

3751 


SAVE /STORE IN MP2 

3074 

7020 

1041 


TAD 0 /single PRECISION MULTIPLY 

3075 

f021 

4752 


multy 

3076 

’10 

|^•002 


2 /ACCUMULATE 



■■ ■■■ ' ■» 

f 
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3?77 

7.'73 

10 42 

TA E 

/A«E 

3C7S 

7, ’2 4 

4 752 

MUlTY 


3379 

7.’25 

30 3 

3 


3060 

7^26 

1046 

TAD B 

/B**0 

3081 

7027 

3751 

SAVE 


3082 

7030 

1041 

TAD 0 


3083 

7031 

4752 

multy 


3084 

7032 

:’003 

3 


3085 

7033 

1042 

TAD E 

/B«E 

3086 

7034 

4752 

MULTY 


3087 

7035 

!. 304 

4 


3088 

7036 

5263 

DMULT4, JMP DMDONE 

/(DCA OATUM"5)»FoR 4*W0RD 

3089 

7037 

3274 

DCa DATUMb6 


3090 

7043 

1043 

Tad f 

/A*F 

3091 

7041 

3751 

SAVE 


3092 

7042 

1045 

TAO A 


3093 

7043 

4752 

MUlTY 


3094 

7044 

,'004 

4 


3095 

7045 

1046 

TAD B 

/B*F 

3096 

7046 

4752 

■ MULTY 


3097 

7047 

'•005 

5 


3098 

7050 

1047 

TAO C 

/C*0 

3099 

7051 

3751 

SAVE 


3100 

7052 

1341 

TAO 0 


3101 

7053 

4752 

MULTY 


3102 

7054 

■■i004 

4 


3103 

7055 

1042 

tAD E 

/C*C 

3104 

7056 

4752 

multy 


3105 

7057 

0005 

5 


3106 

7060 

1043 

tAD F 

/C*F 

3107 

7061 

4752 

multy 


3l06 

7062 

1006 

6 


3109 

7063 

1301 

OMDONEI TAO OATUMbI 

/COPY RESULT 

3110 

7064 

3345 

DCA HORO 


.3111 

7065 

l300 

TAD 0ATUMb2 


3112 

7366 

3046 

DCA LORO 


3113 

7067 

1277 

tAO OATUMbS 


3li4 

70^0 

3047 

DCA 0VER2 


-3115 

7071 

4301 

JMS MULOIV 


: 3116'. 

7072 

3047 

DCA OVER2 

/(NOP) • FOR 4.W0RD 

3117 

7073 

5604 

JMP I DMULT 

3118 


7102 

0ATUM*,'b 6 /INTERMgOlATE storage 

3119 

7074 

'000 

0/i((6»LOW ORDER 

result,, 

3120 

7075 

'.'000 

■ 0 / 1 I 15 

.3121 

7076 

1000 

0/«4 


3122 

7077 

■■300 

0/IK3 


3123 

3124 

7100 

■000 

0 / IK 2 

/#i-HlGH ORDER 

result 

3125 

7101 

■000 

MULOIV. 0 /terminate multiply AND DIVIDE. 

3126 

7102 

2050 

IS? SICNF 

/CORRECT FOR SIGN 

3127 

7l?3 

4451 

JMS 1 MINSK I 


3128 

■7104 

4747 

JMS I NORMF 

/SHIFT left 

3129 

7105 

7030 

NOP 

/• 

3130 

7106 

5701 

JMP I MULDIV 


3131 

7107 

.1041 

FLDVi TAO ACIH 

/4I0IVI0E 


/rOCLl2,3 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 

3144 , 

3145 

3146 

3147 

3148 

3149 

3150 

3151 

3152 

3153 

3154 
3135 

3156 

3157 
3156 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 
3190 ■ 

3181 

3182 

3183 

3184 

3185 

3186 


• 

DIAL10 

v.>i:'3 llijANe?! 

23106 PACE 

7110 

765;* 

SNA CLA 

7111 

4566 

ERR0R2 

/DIVISION BY ZERO 

7112 

jP4,3 

TAD e;xi 

/SUBTRACT exponents*! 

ni3 

7^41 

CM A I AC 


7114 

7001 

lAC 


7115 

4 324 

JMS SIGN 

/SET UP SIGNS 

7116 

7700 

SMa CLA 


7117 

4353 

>. JMS MINUS2 

/negate divisor 

7120 

4750 

JMS I DIVIDE 

/DIVIDE 

7121 

4301 

JMS MULDIV 


7122 

5723 

JMP I ,*1 


n23 

64C1 

FPNT*1 

/THIS subroutine PREPARES MULTIPLY ANO DIVIDE 

/FOR ANY combination Of SIGNED ARGUMENTS AND FOR ZERO, 

/the Result of either is zero if flac ■ 0 , 

/RESULT OF multiply IS ZERO iF EITHER IS ZEROl 
/OIViSiON 9Y ZERO IS CHECKED BEFORE THIS 
/routine is CALLED. 

■ /the Calling ac contains an update value For the 

/EXPONENT, THE RETURNING AC CONTAINS ThE SIGN OF 

n24 


/THE ARGUMENT FOR FURTHER TESTING BY EACH ROUTINE, 

.-000 

SIGN, 0 

/TEST AND SAVE SIGN OF RESULT— 

,7125 

1044 

TAD EXP /compute NEw EXPONENT FOR MUL-DIV, 

7126 

3044 

OCA EXP 


7127 

1124 

TAO P4000 

/LOAD 4000 TO XOR THE SIGN BITS. 

7130 

i’345 

ANO HORO 


n3i 

1041 

Tad ACIH 


7132 

7700 

SMA CLA 

/RESULT may be zero 

n33 

7040 

CMA 


n34 

3050 

OCA SlCNF 


M35 

1045 

tAD HORO 


7136 

7450 

SNA 


7137 

5746 

JMP I REVIT 

/ANSWER IS zero, 

Haz 

7710 

SPA CLA 

/take absolute value or flag 

7141 

4451 

JMS I MlNSKI 

7i42 

1041 

TAD AClH 


n43 

7450 

SNA 

/RESULT OF either HAY BE EERO 

7144 

5746 

JMP I REVIT 

7145 

5724 

JMP I SIGN 

/SIGN OF result ■ SICNF 
/♦•il 

/•■0 


H46 

6522 

REVITi zero 


7147 

7335 

normf» ONORM 


7150 

7261 

3751 

divide; ouroiv 

SAVE-DCA I . 


7151 

7256 

4752 

MP2 

MULTY«jMS i , 


n52 

7200 

MP4 



■>045 

.046 

'..047 

.-041 

■'042 

a«flaC*i 

B«rLAC*2 

C9FlaC*3 

DpACIH 

EPACIL 



t*043 F«OVERl 


/F’0Cl12,37 


MAH? V.TS 
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3167 

7183 

■ 000 

3188 

7154 

7300 

3109 

7155 

1 043 

3190 

7156 

7041 

3191 

7157 

3043 

3192 

7160 

1042 

3193 

7161 

7040 

3194 

7162 

7430 

3195 

7163 

7101 

3196 , 

7164 

3042 

3197 

7165 

1041 

3193 • 

n66 

7040 

3199 

h67 

7430 

3200 

7170 

7101 

3201 

7171 

3041 

3202 

7172 

5753 

3203 ■ 

h73 

>^000 

3204 

7174 

1050 

3205 

n75 

7710 

3206 

h76 

4451 

3207 

7177 

5773 

3208 


7200 

3209 

f200 

0000 

3210 

7201 

7450 

3211 

7202 

5600 

3212 



3213 



3214 



321 5 



3216 



3217 



3216 



3219 



3220 



3221 

7203 

3254 

3222 

7204 

3253 

3223 

7205 

1257 

3224 

7206 

3255 

3225 

7207 

7100 

3226 

7210 

1254 

3227 

7211 

7010 

3228 

7212 

3254 

3229 

7213 

.1253 

3230 

7214 

7420 

3231 

7215 

5220 

3232 

7216 

7100 

3233 

7217 

1256 

3234 

7220 

7010 

3235 

7221 

3253 

3236 

7222 

?255 

3237 

7223 

5210 

3238 

7224 

i254 

3239 

7225 . 

7010 

3240 

7226 

3255 

3241 

7227 

1600 


m1;<ijs2, '■ /negate: operand 

'uA CLL /TPI^LE PRECISION 

TAO OVERl 
CMa IAC 
^ OCA OVERl 
tAO AClL 
cma 
S2l 

IAC CLL 
DCA AClL 
TAO AClH 

cma 

SiL 

IAC CLL 
DCA AClH 
JMP I MINUS2 
RESOlV; 0 

TAO SIGNE 
SPA CLA 
JMS I MINSKI 
JMP 1 RESOLV 

• 7200 

MP4, 3 /single PREcISIONi UNSIGNED MULTI 

SNA /NO RESULT ADDED IF ZERO 
JMP I MP4 

/FOR EaE insert THE FOLlOWINGI 


/7203 

3206 

OCA 

• ♦3 

/7204 

1256 

TAD 

MP2 

/7205 

7425 

mol 

MUY 

/7206 

0000 

0 


/7207 

3253 

DCA 

MP5 

/72i0 

7501 

MQA 


/7211 

3255 

DCA 

MP3 

/7212 

5227 

JMP 

.*15 


OCA MPl /12 BITS BY 12 BITS 

DCA MP5 

TAD THIR 

DCA MP3 

CLL 

Mp6, TAO MPl 
RAR 

DCA MPl 
TAD MP5 

SNL 

JMP ,*3 

CLL 

TAD MP2 
R A R 

DCa MP5 /SAVE HIGH ORDER RESULT 
IS? MP3 
JMP MP6 

tad MPl /correct low order RESULT 

RAR 

DCa MP3 
TAD I MP4 


/PICKUP scale factor 



• "MUlTY" 





/rOCLl2. 

3242 

3243 

3244 
324 5 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 .. 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 
3260 

3281 

3282 
3203 

3284 

3285 

3286 

3287 

3288 
3209 

3290 

3291 

3292 

3293 

3294 

3295 

3296 


• 

1UL10 

to 

> 

ii;. 
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7?3: 

7 ,M 1 


ClA 



7231 

1252 


TAH 

DATUMA 

/'CO‘<ouTE address 

7232 

3254 


DCA 

MPl 

/TE'io 

7233 

1255 


TAD 

MP3 

/LOw order PaRT 

723 4 

71C3 


CLL 



7235 

1654 


tad 

I MPl 

/ACC'.iMULATC 

7236 

3654 


OCA 

1 MPl 


7237 

2254 

1 . 

IS? 

MPl 


724? 

7004 


RAL 



7241 

1253 


TAD 

MP5 


7242 

1654 


tAD 

I MPl 


7243 

3654 


DCA 

I MPl 


7244 

7420 


SNL 



7245 

5633 


JMP 

I Mp4 

/NO CARRY 

7246 

2254 


IS2 

MPl 


7247 

2 654 
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